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

##</code><code>##

$_ = $entry; ($entry) = /^(.*)$/s; # result and source are different