{
    $s = ".....X.....";
    $s =~ s/X/Y/;
    $x = eval q{ "[ $`$& $' ]" };
}