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