#Write Stata-Code for French Departemental Exercise
while (<STDIN>) {

    if (m/\s*(.+)\s+FR\.[A-Z][A-Z]\s+[A-Z]+\s+([0-9][0-9AB])\s+FR[0-9]{2}\s+(FR[0-9]{3})/) {

	$dep = $1;

	$nuts = $3;
	$nuts =~ tr/A-Z/a-z/;

	$iso = $2;
 	$iso =~ s/2A/201/;
 	$iso =~ s/2B/202/;




	#Modify as necessary
	print "replace adm = \"$iso\" if nuts3 == \"$nuts\"";
	print "\n";
	print "replace depname = \"$dep\" if nuts3 == \"$nuts\"";
	print "\n";    }
}

close(INPUT);
close(OUTPUT);