Help for this page
my %trans = (zero => 0, one => 1, ... my $words_re = join "|", map quotemeta, sort { length($b) <=> length($ +a) } keys %trans; $string =~ s/\b($words_re)\b/$trans{lc $1}/ig;
www.com | www.net | www.org
No recent polls found
