http://www.perlmonks.org?node_id=1066567


in reply to Regex help

I guess this might help your problem
 (?<=[A-Z]{4}(\w)[A-Z]{4})
And for future referrence please check Using Look-ahead and Look-behind

Deepak