$ perl -mO=Deparse -e 'if ( $1 eq 'A' || $1 eq 'B' ) { }'

if ($1 eq 'A' or $1 eq 'B') {
    ();
}