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