in reply to Non-regex Methods of Extracting the Last Field from a Record

Your @junk already consumes all splitted elements. There is no boundary on @junk that would prevent it to do otherwise.
(@junk, $ads) = (split(/\s+/, $rec)); # the same here (@foo, $bar) = @baz; # only this way it works ($first,$second,@remaining) = @all
P.S. If you are using split then you are already using regular expressions.

print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});