Select Code to Download

use strict;
use warnings;
...
$str =~ s/($match)/!$1!/g;

print $str;

asdf!GxxOxxAxxT!qwerty