use Data::Dumper;

use strict;
use warnings;

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

##</code><code>##

$VAR1 = [
          '1',
          '2',
          '3',
          '4',
          '5'
        ];