seq{shift=~join"\E.*\Q","",pop=~/./gs}