Select Code to Download

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

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