Again, I've got to emphasize. There is no such thing as "unsafe data". Merely "data used unsafely". So a hypothetical sanitize routine could at best be written as:

sub sanitize {
  die "If you had to call me, you've lost already";
}
[download]

You must fix the behavior of your code, not wrestle your data to the floor.

-- Randal L. Schwartz, Perl hacker