Select Code to Download

use Switch;
use XML::Simple;
...
switch ($foo) {
    case /combo/    { print "found a combo\n"; }
}

Malformed UTF-8 character (unexpected continuation byte 0x9c, with no 
+preceding
start byte) in bitwise and (&) at C:/Perl/lib/Switch.pm line 257.
...
start byte) in bitwise and (&) at C:/Perl/lib/Switch.pm line 257.
Malformed UTF-8 character (unexpected continuation byte 0x90, with no 
+preceding
start byte) in bitwise and (&) at C:/Perl/lib/Switch.pm line 257.