Need help with perl question !

Perl 5 points) Create a Perl script which reads the contents of an arbitrary number of files as arguments (i.e., a file list). The script should print a redacted version of the input files to stdout so that all student IDs of the format abel replaced with XXXDDD. After the contents are printed, print a list of ead 23 (upper- or lower-case) are h ID and the number of times it appeared. Order does not matter. You may assume that a maximum of one ID appears per line. Approximate lines of code: 10-13 Example input file: Lorem ipsum elit, sed do eiusmod dil045 tempor ut labore et dolore PRF578 magna aliqua. Ut enim ad prf578 minim veniam, quis nostrud Expected output: Lorem ipsum elit, sed do eiusmod XXXDDD tempor ut labore et dolore XXXDDD magna aliqua. Ut enim ad XXXDDD minim veniam, quis nostrud. di1045 1 prf5782