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

##</code><code>##

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