$_=get;s:g/\d|(\w)/$((my@a)[+*]=$0||@a[*-$/-1])/;.say