Extra Credit:

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

japhy -- Perl and Regex Hacker