%subs = ("Xaa1." => "sub1");
foreach $s (keys %subs){
$data =~ s/\b$e\b[.]?/$subs{$s}/g;
}