#!/usr/bin/perl

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

my $regex = '^$wday $mon\s+$mday \d{2}:\d{2}:\d{2} $year:';
my $wday = 'Tue';
my $mon = 'Feb';
my $mday = '8';
my $year = '2005';

findString($s);

sub findString($) {
    my $line = shift;

#   print "found\n" if $line =~ eval "qr/$regex/";
    if ($line =~ eval "qr/$regex/") {
        print "found\n";
    }
}

##</code><code>##

Scalar found where operator expected at (eval 1) line 1, at end of line
        (Missing operator before ?)
Backslash found where operator expected at (eval 1) line 1, near "$mon\"
        (Missing operator before \?)
found