in reply to simple regexp question

Maybe I am reading the question differently, I would go for:
$strTest =~ s/(&.*?);/$1 ;/g;

[download]

In Section Seekers of Perl Wisdom