add a pattern search perl script