my @LINES =; #### while(){ #### if ( $fields[8] =~ /^[sno]/ =~ /^[sno]/ ) { #### if ($fields[8] =~ /(?:^|;)sno=[^;]/) { ... }