replace grep -P with actual perl