untaining data

[Alen Sarkinovic]

I'm using this format for untaining data :

if ($data =~ /^([-\@\w.]+)$/) {
        $data = $1;

but , I would like to alow char : +  ,and ,char : space , to be entered into the $data
What code will do that?
Thanks