> ... Quidquid perl dictum sit, altum viditur.

Umm...

foreach $thing (@said)
{
    $thing =~ y/<>?:"'{}[];\+=|)(*&^%$#@!~`//d;
    regard(R_HIGHLY,$thing) unless (system("perl -c $thing"));
}
[download]