if (grep {$fields[3] !~ /5612/} @fields) {

##</code><code>##

            if ( $fields[ 3 ] ne '5612' ) {

##</code><code>##

            if ( $fields[ 3 ] != 5612 ) {

##</code><code>##

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