$rep_contact_info =~ s/(<\s*table.*?width\s*=\s*"*).*?("*.*?>)/{$1}300{$2}/si; #### {}