$s = substr $s, 1, -1;

Nice.
I didn't know that would work. I would have done it as:

$s = substr $s, 1, length($s) - 2;
[download]

But I've read the documentation, now ;-)

Cheers,
Rob