$n = "\1n\1r";

foreach (split //, $n) {
	print ++$x." ".ord($_)."\n";
}