if ($Session->{'usrType'} eq 'Pro') and ($Session->{'usrSystem' =~/SEF/VAL/SUM/SAR/MRT/ALB/MRE/VER/RML/AUS/ORG/MSX/BAR/LAS/) {do something} #### if ( ($Session->{'usrType'} eq 'Pro') and ($Session->{'usrSystem'} =~/SEF/VAL/SUM/SAR/MRT/ALB/MRE/VER/RML/AUS/ORG/MSX/BAR/LAS/)) {do something}