if ($measure =~ /A[1-3]/ ||
$measure =~ /I[1-8]/ ||
$measure =~ /D[0-9]/ ||
$measure =~ /P[1-2]/ ||
$measure =~ /C[1-2]/ ||
$measure =~ /W[1-3]/ ||
$measure =~ /O[1-4]/)
{ # do something here; }
Why not just run it and see for yourself?
sherm--
--
My blog: http://shermspace.blogspot.com
Cocoa programming in Perl: http://camelbones.sourceforge.net