{
    my $x = 'abc;
    my $s = 'edcba';
    eval '$s =~ tr/$x/123/';
}
{
   my $x = 'ABC';
}