$pattern = (reement\s*PFPC\s*receives\s*fees\s*at\s*annual\s*rate\s*of\s*)(#.{0,3}#)(\s*\s*of\s*average\s*net\s*asset\s*value\s*of\s*outstanding\s*In\s*) while ($data =~m/$pattern/gi) { $counter_number_of_search+=1; } if ($counter_number_of_search == 1) { ##### Do some operation ######## } else { ####### increase the margin to search ##### }