use Data::Dumper;

use strict;
use warnings;

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