#!/usr/local/bin/perl5.8.0
use re 'taint';
...