http://www.perlmonks.org?node_id=76146


in reply to Golf: Embedded In Order

Extra Credit: 
sub seq {
my($s,$r)=shift;
$s=~/\Q$_/?($r.=$`,$s=$'):return for split//,pop;
$r.$s
}

[download]


japhy -- Perl and Regex Hacker

In Section Meditations