You can do something like this:
my $flip = "something";
SWITCH: {
( $flip =~ /^0$/ || $flip =~ /^1$/ || $flip =~ /^2$/ ) && do {
$local_pref = "FL"; last SWITCH; };
( $flip =~ /^3$/ || $flip =~ /^4$/ || $flip =~ /^5$/ ) && do {
$local_pref = "FU"; last SWITCH; };
( $flip =~ /^6$/ || $flip =~ /^7$/ ) && do {
$local_pref = "FA"; last SWITCH; };
( $flip =~ /^8$/ || $flip =~ /^9$/ ) && do {
$local_pref = "FS"; last SWITCH; };
} # end switch
__________________
William Ampeh (x3939)
Federal Reserve Board
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
