my $regex = join ('\s*', split(//, 'perlmonk'));
my $count = () = /$regex/g;