Select Code to Download

UT 123456789
1234
...
5678
some additional string information
THE_END

#!perl

...
        print { $_->{file} } $line if $line =~ $_->{regex};
    }
}