Help for this page

Select Code to Download


  1. or download this
    if (  $line !~ m/^2/
   || (  substr($line, 14, 3) ne '800'
...
{
   ...
}
  2. or download this
    if (  $line !~ m/^2/
   || substr($line, 14, 3) !~ /^(?:800|866|877|888)\z/
...
{
   ...
}
  3. or download this
    my %tollfree = map { $_ => 1 } 800, 866, 877, 888;

...
{
   ...
}