#!/usr/bin/perl -wl
use strict;

my $str = "Bünyamin";

my $x = "Bü";
my $y = "Cv";

eval "\$str =~ tr/$x/$y/;";
print $str;


my $str2 = "Bünyamin";

$str2 =~ tr/$x/$y/;
print $str2;