Select Code to Download

local $/ = "";
while (<>) {
   my ($station, %fields) = /(\S+)/g;
   print(join(' ', $station, @fields{qw( N E U )}), "\n");
}

local $/ = "";
while (<>) {
...
   my %fields = /(\S+)\s+([^\n]*)\n/g;
   print(join(' ', $station, @fields{qw( N E U )}), "\n");
}