Expanding on what kyle said, source filters are evil and break often. I avoid them at all costs.

See

• "How do I create a switch or case statement" in perlfaq7
• given/when, the perl 5.10 equivalent of switch

for alternatives.