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