http://qs1969.pair.com?node_id=55728


in reply to Re: Regexp experts, come to rescue!
in thread Regexp experts, come to rescue!

In that line, you may be better of using
sub match{ my $MType = shift; $_ eq $MType and return 1 for ( qw(-41 -55 -jj 1au 24u 36u )); }

Hope this helps,

Jeroen
"We are not alone"(FZ)