# 37 chars (between the {...}) sub seq{shift=~join'.*',map"\Q$_",split//,pop} #### sub seq{($t=pop)=~s/./$&.*/sg;pop=~/$t/s}