Help for this page
Select Code to Download
Select
or
download this
use warnings; use strict; ... $str =~ s/(?<! ) (?! )//g; print $str;