(RegEx) Alle Matches ersetzen

[CPAN]

use Text::ParseWords qw(parse_line);  
@commands = parse_line(q(;), undef, 'CMD1=DO_THIS;CMD2="DO_THAT";CMD3="DO_THIS;AND_THAT;AND_THAT"');