OK, after a bit more tinkering, this seems to work:

$rep_contact_info =~ s/(<\s*table.*?width\s*=\s*"*)\d*%*("*.*?)/${1}50
+0${2}/si;
[download]

I'm sure it could be a lot prettier. Thanks for the bracket info.

$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot Bishop";
$nysus = $PM . $MCF;
Click here if you love Perl Monks