in reply to replacing $` with ordinary capturing in global substitutions

my $old;
s<\G(.*?\w+)><$old.=$1;"$old\n">ge;

[download]
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom