考えてみたものの分かりませんでした。
$moji =~ s/　/ /g;
my ($temp undef) = split(/ /,$moji);