in reply to eval, but syntax-check only -- like perl -c

Will wrapping this in a non-executable construct work for you ... 
my $snippet = ...
eval "if (0) { $snippet }";
die if $@;

[download]
It *seems* to work.

bluto

In Section Seekers of Perl Wisdom