Select Code to Download

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

sub seq{($t=pop)=~s/./$&.*/sg;pop=~/$t/s}