Verno, che e po-lesno s moduli (Time::Local), no ne vinagi e nuzno da se izpolzvat:

my ($Time, $Date);
my $now = scalar localtime;
$now =~ m#\w+\s+(\w+\s+\d+\s+)((\d+:){2}\d{2})\s+(\d{4})$#;
$Time = $1.$4;
$Date = $2;