Charles T. Smith wrote:
> while ($str != $tail) {
> $str ~= s/^(head-pattern)//;
> use ($1);
> }For those whose Perl's a little rusty: what does this do? A self-contained example might also be useful... -- https://mail.python.org/mailman/listinfo/python-list
