my %subs = (
"Xaa1" => "sub1",
"Xaa11" => "sub2",
);

foreach my $s (keys %subs){
 $data =~ s/$s/$subs{$s}/g;
}