Select Code to Download

use warnings;
use strict;
...
    $str =~ s{$lhs}{$rhs}ee;
    is $str, 'AqqqB';
}