Select Code to Download

while(my $line=<FILE>) {
    my $linecopy=$line;
...
    }
    print "\n";
}

sub matchit {
    my $data=shift;
...
    }
}
matchit($_) while(<FILE>);