( $neu ) = do { local $_ = $text2; tr/yY//d; /^(\w{13})/ };