use strict;
my $str = '"a:link": "<a href=\\"http://|\\">",
"a:mail": "<a href=\\"mailto:|\\">",
"abbr": "<abbr title=\\"\\">",
"acr|acronym": "<acronym title=\\"\\">",
"base": "<base href=\\"\\" />",
"basefont": "<basefont/>",
"br": "<br/>",
"frame": "<frame/>",
"hr": "<hr/>",
"bdo": "<bdo dir=\\"\\">",
"bdo:r": "<bdo dir=\\"rtl\\">",
"bdo:l": "<bdo dir=\\"ltr\\">",
"col": "<col/>",
"link": "<link rel=\\"stylesheet\\" href=\\"\\" />"';
my $regex = qr/(\w+)=/p;
my $subst = 'what => ';
my $result = $str =~ s/$regex/$subst/rg;
print "The result of the substitution is' $result\n";
Please keep in mind that these code samples are automatically generated and are not guaranteed to work. If you find any syntax errors, feel free to submit a bug report. For a full regex reference for Perl, please visit: http://perldoc.perl.org/perlre.html