#!/usr/bin/perl -w
use strict;

my $line1 = "Current time => 20130530.000101 interval => 600  count => 144\n";
my $line2 = "(60 rows affected)\n";

chomp($line1);
chomp($line2);

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 ;
$YY = $1;
$MM = $2;
$DD = $3;
$HH = $4;
$MI = $5;
$SS = $6;
$_ = $line2;
/^\((\d+).row/sx;
my $numUsers = $1;

print  $YY,$MM,$DD,$HH,$MI,$SS,$numUsers,"\n";                        
print "Date: " . $MM . "\/" . $DD . "\/" . $YY . " Time: " . $HH . ":" . $MI . ":" . $SS . " Number of Users: " . $numUsers . "\n";