#!/usr/bin/perl
$regex = '<[^>]*|(a)';
$subject = 'aig arother <a href="aaa">';
($replaced = $subject) =~ s/$regex/ if (defined $1) {"b";} else {$&;} /eg
;
IyEvdXNyL2Jpbi9wZXJsCiRyZWdleCA9ICc8W14+XSp8KGEpJzsKJHN1YmplY3QgPSAnYWlnIGFyb3RoZXIgPGEgaHJlZj0iYWFhIj4nOwooJHJlcGxhY2VkID0gJHN1YmplY3QpID1+IHMvJHJlZ2V4LwppZiAoZGVmaW5lZCAkMSkgIHsiYiI7fSBlbHNlIHskJjt9IC9lZzsKcHJpbnQgJHJlcGxhY2VkIC4gIlxuIjs=