Select Code to Download

$rep_contact_info = '<table width ="12">';
$rep_contact_info =~ s/(<\s*table.*?width\s*=\s*("{0,1})).*?(\2.*?>)/$
+{1}300${3}/si;
print $rep_contact_info;