Htam::pork.ham

ham stands for Htam's Away Messages.
It is a Perl script for use in pork.
pork is a text-based client for AIM and IRC.
Seeing that pork is fully Perl-scriptable, I decided to write a few scripts.
Please note that I am not a perl programmer but a C hacker.
Please point out all bugs AND style issues if the code gets un-perl-ish, thank you.
Here is the code, enjoy:
ham-0.3.pl 
#!/usr/bin/perl -w
# ham.pl - Htam's Away Messages handler for pork
# Author: Jed Yang (htam)
# Date: 2005.07.28
# Usage: After loading with /perl_load, access this script by using /ham in pork.
# Versions:
# 0.2 - preliminary release, primary functions
# 0.3 - added regex support with highlighting and editing
more...
Valid HTML 4.01
htam