Select Code to Download

use utf8;
while( <> ) {
...
  my @items = split( /\s+/, $fields );
  say qq{$leader « }, join( q{,}, @items ), q{ »};
}