Syntax-GivenWhen is a project mainly written in Perl, it's free.

Add support for the given/when keywords in Perl 5.8