{ use re::ampersand; $x =~ /.{10}/; $y= $&; }