Here's mine. It's
très cool.
# 37 chars (between the {...})
sub seq{shift=~join'.*',map"\Q$_",split//,pop}
Update -- after seeing
chipmunk's code, which beats mine, I offer one minor adjustment:
sub seq{($t=pop)=~s/./$&.*/sg;pop=~/$t/s}
Although, should the $t by
my()ed? I'm all for strict-compliant golf. Anyway, I changed the
@_ access to
pop, and added a needed
/s modifier to both regexes. It makes it longer than
chipmunk's, but doesn't break on cases involving newlines.
japhy --
Perl and Regex Hacker