use Data::Dumper;
print Dumper( "Thu Jun 22 10:25" =~ /(\d+)+(\d+):(\d+)/ );
__END__
$VAR1 = '1';
$VAR2 = '0';
$VAR3 = '25';