$str1 =~ s/\s+//g;