if ($col6 =~ /^\Q97517\E/ ) { --do somethng -- } elsif ($col6 =~ /^\Q97516\E/) { --do something else -- }