Select Code to Download

#!/usr/bin/perl -w

...
        s/^COMMENT:\s+AUTHOR: .*?poker.*?^-----$//gsm;
        print;
}

#!/usr/bin/perl -w

...
#       print $_, "\n";
        print @foo;
}