C:\wampp1\perl\bin>perl -le "$var = 'dies sit  ein    stringvvvvvv          test'; $anz = () = $var =~ /\b(.+?)\b/g; print $anz"