operation with perl to use regexp or not