请问一个switch语句的有关问题

请教一个switch语句的问题

Perl code

 swith($line)
    {
        case $line=~ m/taxid:9606\(Homo sapiens\)\ttaxid\:9606\(Homo sapiens\)/
            {
                print M_PROCESSED_human $line;
            }
        case  $line=~ m/taxid:10090\(Mus musculus\)\ttaxid\:10090\(Mus musculus\)/
            {
                print M_PROCESSED_mouse $line;
            }
        else
            {
                next;
            }

------解决方案--------------------
难道LZ的编辑器没有语法高亮？
------解决方案--------------------
[code=Perl] use Switch;

switch ($val) {
case 1 { print "number 1 " }
case "a " { print "string a " }
case [1..10,42] { print "number in list " }
case (\@array) { print "number in list " }
case /\w+/ { print "pattern " }
case qr/\w+/ { print "pattern " }
case (\%hash) { print "entry in hash " }
case (\&sub) { print "arg to subroutine " }
else { print "previous case not true " }
}[/code]


------解决方案--------------------
http://search.cpan.org/~rgarcia/Switch-2.16/Switch.pm