Help for this page
seq{shift=~join".*",split//,pop}
seq{shift=~join".*",pop=~/./g}
seq{shift=~join"\E.*\Q","",pop=~/./gs}