$entry =~ /^(.*)$/s; $entry = $1; # untaint