Select Code to Download

use strict;
use warnings;
...
}

print $string;

print $string = substr($1,0,length($1)-1) . "X" . $2 if $string =~ m{^
+(aabb)(.*)$};