Select Code to Download

print map { $_->[1],"\n" } sort { $a->[0] cmp $b->[0] } map { [ /\bN:(
+\w+)/, $_ ] } <>;

print map { $_->[0],"\n" } sort { $a->[1] cmp $b->[1] } map { [ $_, /\
+bN:(\w+)/] } <>;