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