Not so good regexs:

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

my $regex = {
  'wday' => qr{^\s*(\w+)\s+},
  'mon'  => qr{^\w+\s+(\w+)},
  'mday' => qr{\s+(\d{1,2})\s+},
  'year' => qr{\s+(\d{4})},
  'time' => qr{((?:\d+:){2}\d+)}
};


my %dt = findString($s);

print "$dt{year} $dt{time} $dt{mday}"; #...

sub findString($) {
    my $line = shift;
    my %dt; # date/time
    for(keys %$regex){
      $line =~ /$regex->{$_}/ and $dt{$_} = $1
    }
    #print "found year\n" if exists$dt{'year'}
    #or just return hash
    %dt
}
[download]