#!/usr/bin/perl -n
if (/Time: (..):(..):(..)/) { # pull fields out of a line
	$hours = $1;
	$minutes = $2;
	$seconds = $3;
}
