Select Code to Download

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