Select Code to Download

my $current_line = q{};
while( defined( my $line = <> ) ) {
...
  my( $line ) = $shift;
  ## do whatever . . .
}

#!/usr/bin/env perl
use 5.018;
...
    data6
keyword1 data1 data2 data3 data4
keyword3 data1

~ $ perl $_
keyword 'keyword1' has 3 values: ["data1","data2","data3"]
keyword 'keyword2' has 6 values: ["data1","data2","data3","data4","dat
+a5","data6"]
keyword 'keyword1' has 4 values: ["data1","data2","data3","data4"]
keyword 'keyword3' has 1 values: ["data1"]