Brilliant! I knew I was overlooking something simple (that doesn't mean obvious). My only criticism is that the regex should be $NPR = qr{...} ;)