Select Code to Download

local $_ = join "\n", @trip;
printf "%15s to %-15s\n", $1, $2  while /^(.*)\n(?=(.*))/gm;

my $test = "Chicago
Saint Looey
...
}
__END__ 
        Chicago to Saint Looey