sub untaintFile{
        my $text=$_[0];
        if (defined $text && $text ne ''){
                if ($text =~ /^(\w\:([\\\/][\w\s\]+[\w\s\-\.\']*\.?[\w\s]*)*)$/ ||
                    $text =~ /^(\\([\\\/][\w\s\]+[\w\s\-\.\']*\.?[\w\s]*)*)$/   ) {
                        $text = "$1";
                } else {
                        ...code for sending me an email...
                        $text = ""; 
                }
        }
        return $text;
}