#!/usr/local/bin/perl

while(<>)
{
	print "##\n";
	foreach $key (split(/\015/))
	{
		print "#$key\n";
		if ( $key =~ /split/ )
		{
			print "#### $key\n";
		}
	}
}
