Select Code to Download

#!/usr/bin/perl -w

...
    open(FH2,'>filename');
    print FH2 "$entry";
 }

#!/usr/bin/perl -w

...
        my $entry = $file =~ /:::(.*?):::/ms;
        #Thanks Corion
        print FH2 "$1\n";