perl -lMautodie -pe 'BEGIN{ open FILE_B, "<", pop; }
s/^>Node.*// && do{for my $k (0..3) { s/$/<FILE_B> =~ s|\n| |r/e }}
' FileA FileB
-l
=> IFS=OFS=\n
, -p
=> неявное чтение файла в цикле + автопечать записи. прагма autodie
включена для спасения при ошибках.