Select Code to Download

sub findString($) {
    my $line = shift;
    print "found\n" if $line =~ eval "qr/$regex/";
}

my $s = 'Tue Feb  8 11:11:11 2005: blah blah blah';

...

    print "found\n" if $line =~ /$regex/;
}