Select Code to Download

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