for my $x ('x') { $x =~ s/x/X/ }