Ugly but works (for some definition of 'works'):

$line =~ s/BA/XXXXsome magic sequenceXXXX/g;
$line =~ s/A/Z/g;
$line =~ s/XXXXsome magic sequenceXXXX/BA/g;
[download]