Changed PerlTestOpen substitute regex to non-greedy