Just a good idea:

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 ;
[download]

Test your matches (esp. if you're unsure about the data) so you can respond if it fails

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