$ perl -le'
use Data::Dumper;
$Data::Dumper::Useqq = 1;
my $foo = "  abc\t\tdef\r\rghi\n";
print Dumper $_ for split / /, $foo;
'
$VAR1 = "";

$VAR1 = "";

$VAR1 = "abc\t\tdef\r\rghi\n";

$ perl -le'
use Data::Dumper;
$Data::Dumper::Useqq = 1;
my $foo = "  abc\t\tdef\r\rghi\n";
print Dumper $_ for split " ", $foo;
'
$VAR1 = "abc";

$VAR1 = "def";

$VAR1 = "ghi";