use Data::Dumper;

$str =~ s/[\s]+//mgx;
print Dumper $str;