Select Code to Download

my ($YY,$MM,$DD,$HH,$MI,$SS) ;
$_ = $line1;
/^Current time =>\s(\d\d\d\d)(\d\d)(\d\d)\S(\d\d)(\d\d)(\d\d)/sx ;

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