$rep_contact_info =~ s/(<\s*table.*?width\s*=\s*"*)\d*%*("*.*?)/${1}500${2}/si;