Perl has failed me /sadpanda.png

So, I have this script, but it doesn't work (syntax error), it's obviously because Perl sux... But, maybe you can fix it? Or maybe it even works for you?

#!/usr/bin/perl

use Switch;

print (10 / 2) ."\n";

while (<>)
{
    switch ($_)
    {
        case (/^EXIT\n$/i)
        {
            exit 0;
        }
        else
        {
            print $_;
        }
    }
}

>>1
This does what your code would do without the bug
print 5;$_=<>;/^EXIT\n$/i?exit 0:print;