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...