if ($value =~ /^([\w|\s|\/|\-]+)$/) { $value = $1; }
else { die "Reg. exp. failed: $value!\n"; }

##</code><code>##

if ($value =~ /^(.+)$/) { $value = $1; }
else { die "Reg. exp. failed: $value!\n"; }