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