#!/usr/bin/perl

$dir = shift;
chdir($dir) || die;
foreach $i (<*.n>) {
	$i =~ /(.*)\.n$/;
	rename ("$1.n", "$1.3");
}
