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'
      )
   )
{
   ...
}

##</code><code>##

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

##</code><code>##

my %tollfree = map { $_ => 1 } 800, 866, 877, 888;

if (  $line !~ m/^2/
   || !$tollfree{ substr($line, 14, 3) }
   )
{
   ...
}