@s=<>=~/./g; chomp; $i=0;$j=@s-1; while(1){ if($i==$j){ exit!print @s[0..$i,$j..@s-1]; } if($i==$j-1){ exit!print @s[0..$i,0,$j..@s-1]; } if($s[$i]ne$s[$j]){ $t=join'',@s[$i+1..$j]; if( $t eq reverse $t ) { exit!print @s[0..$j,$i,$j+1..@s-1]; } $t=join'',@s[$i..$j-1]; if( $t eq reverse $t ) { exit!print @s[0..$i-1,$j,$i..@s-1]; } exit!print'NA'; } $i++; $j--; }