Select Code to Download

use Data::Dumper;

...
$_ = "1 2\n3\t4\r\n5\n";
my @words = split;
print Dumper(\@words);

$VAR1 = [
          '1',
...
          '4',
          '5'
        ];