Alen Sarkinovic wrote:
: 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?

Just add + and \s to the list (you don't need to backslash @ here):

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

-- tdk

Reply via email to