if ( $fields[ 3 ] !~ /\A5612\z/ ) {