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 ;


##</code><code>##

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");
}