sub test2 ()
{
   print "-"x20, "\n";
   print $_[0], "\n";

   print "Before = ", unpack ("U*", ${text}), "\n\n";
   my $tmp = ${dcy[1]};
   $text=~s/${a_lc_diaeresis[1]}/$tmp/g;
   $tmp = ${acy[1]};
   $text=~s/${a_lc_grave[1]}/$tmp/g;

   print "After = ", unpack ("U*", ${text}), "\n\n";
   print $text, "\n\n";
}