Select Code to Download

#! /usr/bin/perl -w
    eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
...
sub wanted {
    /^.*\.txt\z/s && print $name,"\n";
}