# while not eof
# =============
while ($line = <INPUT>) {

($date, $time, $ampm, $filesize, $filename) = split(" ", $line);

# remove commas from $filesize string
# ===================================
$filesize =~ s/,//;