#!/opt/perl/bin/perl
use Data::Dumper;

$list = $ARGV[0];

my %months = ();

open FILE,"<$list" or die "Couldn't open $list: $!\n";
while (chomp($line = <FILE>))
{
	my ($date, $directory) = split /\|/, $line;
	my ($year, $month) = unpack('A4A2', $date);
	$directory =~ s/\\/\\\\/g;
	$directory =~ s/"/\\"/g;
	$directory =~ s/^(.*)$/"$1"/g;
	push @{$months{$month}}, $directory;
}
close FILE;
MONTH: foreach my $month (sort keys %months)
{
	print $month, ' ', '=' x 30, "\n";
	foreach my $dir (@{$months{$month}})
	{
		print $dir, "\n"
	}
}