If you need something like this in the future, have a look at HTML::FillInForm which does the exact same thing, except it uses HTML::Parser instead of a load of regexps.

Whenever I come up with a cool new idea for a module, I find out someone has already put it up on CPAN.