Select Code to Download

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

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