in reply to compound search and replace

@;=("",";");
s/(")|\s\s/$;[!$1]/g;

[download]

In Section Seekers of Perl Wisdom