my $string='i am using perl';
(my $str = $string) =~ s/\s+//g;