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