> $in = '423RY75Y69827EC67592C78657N965R';;
> ( $out = $in ) =~ s[((\D)[0-9N]+\2)][_$1_]g;; 
> print $out;;
423R_Y75Y_69827E_C67592C_78657N965R