my $x1 = "hello" ; my $x2 = "balln" ; $x1 =~ s/[^$x2]/-/g ; print $x1 ;