Help for this page

Select Code to Download

Select or download this

$subject =~ tr/a-zA-Z0-9_/ /sc;
my @words = split(' ', $subject);
my $regex = join(' ', map { "($_)?" } @words);
...
if ($num_matches == (@words - 1)) {
    register($words[-1]);
}