Yeah, the two occurrances of .*? in that regex don't seem to do anything useful. The only thing I can see is that you want to see (for example) whether the string .oracle appears in $id. If that's the case, a simple grep /\.oracle/, $keys %$HR_Cwnt; would be faster.