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

##</code><code>##

my $pattern = 'iamusingper';
$pattern =~ s/(.)/.\\s*$1/g;