(my $stringToSearch = $originalString) =~ s{\s+}{}g;