if (  $line !~ m/^2/
   || substr($line, 14, 3) !~ /^(?:800|866|877|888)\z/
   )
{
   ...
}