#!/usr/bin/perl

while (<>) {
s/"/\\"/ ;
if (($name, $base)=/^\S+\s+((\S.*-)iso8859-2)$/) {
	if ($base=~/ /) 
		{ 
		print '"', $base, "iso8859-1\" \"$name\"\n";
		}
	else 	{
		print $base, "iso8859-1 $name\n"; 
		}
	}

}