ack "<<" perl/t/re