Have you considered modifying your tests to use index() ?

if(/3_prtnm_/)

becomes:

if (index($_, '3_prtnm_') != -1)

If I read your code right, you are using regex matches to look for fixed strings, which is not the fastest approach.