if (  $line !~ m/^2/
   || (  substr($line, 14, 3) ne '800'
      && substr($line, 14, 3) ne '866'
      && substr($line, 14, 3) ne '877'
      && substr($line, 14, 3) ne '888'
      )
   )
{
   ...
}