my $text = '   The   perl      ';

$text = join ' ', split ' ', $text;