Help for this page
if (join('','a'..'m') =~ qr/$sv/ && $sv =~/^[a-m]{5}$/){ print "Matched\n"; }
sub match_range { my ($string, $start, $end, $length) = @_; ... if ($string !~ /^[${start}-${end}]{$length}$/) { return 0; } return 1; }
www.com | www.net | www.org
No recent polls found