Simple Perl Script

Hi, I have a couple hundred text files and I need to extract all data in the files between XXX and YYY.

Probably a 5 minute job for someone that knows what they are doing.

Thanks