Select Code to Download

#!/usr/bin/perl
use strict;
...
while (<@text>) {
//    apply $regexes somehow, the fastest way possible;
}