cách bạn đặt

##</code><code>##

my %ARR = (
  'acirc' => 'â', 'atilde' => 'ã', 'auml' => 'ä',
  '226' => 'â', '227' => 'ã', '228' => 'ä'
);
while(<>){
  s/&#?([^;]+);/$ARR{$1}/g;
  print $_;
}
exit;