use strict;
use diagnostics;

# ScheduleA has the format of:
# ,,,,,,,MultiPlex MP-7 Plan.pdf.sit
# ,,,,,,,MultiPlex S2.1 Main Plan.S.sit. . .
# ,,,,,,,MultiPlex S2.2 Upper PlanS.sit. . .
# ,,,,,,,MultiPlex S2.3 Roof Plan.S.sit. . .
# 1/24/2000,906,907,Johnston Sport Architecture Inc.,Lorne Mack
# 1/21/2000,908,908,Johnston Sport Architecture Inc.,Lorne Mack
# 1/19/2000,909,911,Johnston Sport Architecture Inc.,Lorne Mack
# ,,,,,,,Whitehorse FTP Memo.pdf
# ,,,,,,,1122 Whitehorse FTP 6.0/95


open (CSVFILE, "<schedulea.csv") or die "Can't open schedulea.csv";

while (<CSVFILE>) {
	if ($_ =~ /(^.*?),(\d+),(\d+),(.*?$)/) {
		$2 =~ ('0' x (6 - length($2))) . $2;
		$3 =~ ('0' x (6 - length($3))) . $3;
		print "$1,$2,$3,$4\n";
	}
	else {
		print $_;
	}
}