use strict;
use warnings;
use autodie;

open my $IN,  '<', 'in.txt';
open my $OUT, '>', 'out.txt';

while ( my $line = <$IN> ) {
    print $OUT $line if $line =~ /Homo Sapiens/;
}

close $IN;
close $OUT;

__END__