use strict; use warnings;
my @fields  = ( 0 .. 7, "something" );
if ( $fields[8] =~ /^[sno]/ =~ /^[sno]/ ) {
    print "uh oh\n";
}  else {
    print "oh no\n";
}
__END__
oh no