use Acme::DWIM;

  my ($x) ... ...("Hullo " ... 3 ... "world" ... "~" ... 30) ... /(...)/;
  $x ... tr/tnv/uow/;
  print $x;