use strict;
use warnings;

my $filename = 'fasta.txt';

open my $FILE, '<', $filename or die "Could not open $filename: $!";

while(my $line = <$FILE>) {
    if($line=~/^>.*unknown/ ) {
        $line .= <DATA>;
        print $line;
    }
}
close $FILE;