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