$s= 'ABCDEFG' $s =~ s// /g print "'$s'" ' A B C D E F G '