Here is another bit of code that hits a similar problem.

#! /usr/local/bin/perl -w

use 5.006;
use strict;
use warnings;

use Switch;

my $exit = 0;

sub shell
{
   print $/; # Error goes away if you remove this line, or change to "
+\n";

   while(1)
   {
      switch ("cmd")
      {
         case /^quit/   { $exit = 1; }
         case /^help/   { help(); }
      }
      last if $exit;
   }
}
[download]

I just got bitten by this. BTW, this is a much cut down version of the code, but gives the same error.

I guess we'll just have to wait for Perl6 (RFC here).
--
Brovnik