$neu= do { my $_=$text2; s/y//; /^\w{13}/; $&}