$states = "NY\nNJWA\nALCOOR";
print "-$1-\n" while($states =~ /(\w\w)/g);