#!/usr/bin/perl
#
#	Convert waddir output into a directory listing...

while (<STDIN>) {
	if ( /^#/ ) {
		print;
		next;
	}
	# Break the line into it's components...
	/^([^\s]+)\s+([^\s]+)\s+([^\s]+)/;
	$DOSpath=$1;
	$WADpath=$2;
	$WADlen=$3;
	printf("%-20s %-20s %d\n", $DOSpath, $WADpath, $WADlen);
}