DB<100> $_ = " x " x 3
 => " x  x  x "

  DB<101> print $-[0] while /x/g
147