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