Help for this page

Select Code to Download

Select or download this
```
$regex = eval $regex;
```

Select or download this

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

...
  my $pattern = sprintf($regex, @_);
  print "found\n" if $line =~ /$pattern/;
}