if ( /(foo)|(bar)|(baz)/ ) { print "$#-\n"; }