if ($line1 =~ /^Current time =>\s(\d\d\d\d)(\d\d)(\d\d)\S(\d\d)(\d\d)(\d\d)/sx ) {
   # assign your captures
...
} 
else {
   # warn about failing to match
   warn("No Match: $line1\n");
}