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 ;