Hey, that's sweet! If you want to get rid of another regex and make it even faster:

    if ( $where == 1 or substr($where, -2) eq 'E0' ) {
[download]

Though I am wondering one thing: why is 'E0' appended to the return value of the final sequence number? Is it just an easy test for the end or is there something significant here that I'm not aware of? (i.e., why not just append an 'x' or 'mssux' or something like that?).

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.