my ($YY,$MM,$DD,$HH,$MI,$SS) = 
  $line1 =~ /^Current\stime\s=>\s(\d\d\d\d)(\d\d)(\d\d)\S(\d\d)(\d\d)(\d\d)/sx ;
my ($numUsers) = $line2 =~ /^\((\d+).row/sx;