while(<>) {
	chomp;
	$inp_word4 = $_;
	@inp_word=split(//,$inp_word4);
	for($i=0;$i<@inp_word;$i++)
	{
		if(($inp_word[$i]=~/na/)&&($inp_word[++$i]=~/m/))
{
			$inp_word[++$i]=~s/m/d/;
			}	
			print "$inp_word";

	}

}