#
# PCAD backname net ECO processing
#
use strict;

my $mode=0;

while(<>)
{
	if(m/NetSplit \"(\S+)\" \"(\S+)\" (.+)/)
	{
		print("NetRename ", "\"", $2, "\" \"",  $1, "\"\n");
	}
}