you'll probably find perl's arithmetic operators more handy than regular expressions. look in perlop for more info. you're on the right track, anyway.

~Particle *accelerates*