Select Code to Download

#!/usr/bin/perl -T

use strict;
...
while (defined ($_ = $tail->read)) {
    print && alarm 2 if /$regex/;
}

# ~/bin/tf2.pl file '(??{print "Hello, world!\n"})'
Eval-group not allowed at runtime, use re 'eval' in regex m/(??{print 
+"Hello, world!\n"})/ at /root/bin/tf2.pl line 20.