Replaced // with || to maintain perl 5.8 compatibility