Select Code to Download

Laundering data using regular expression [sic] is the only 
mechanism for untainting dirty data

sub untaint {
    my $data = shift;
...
        die "somebody tried something nasty, I think: '$data' contains
+ questionable characters.\n";
    }
}