Select Code to Download

sub search {
    my $file = $File::Find::name;
...
    print "$text - $file"
        if $line =~ /$text/;
}