Could I ask another ?

No! (Just kidding :)

... adjust that code so that it will read the input data from a file ... and print the match data to [files] ...

Please see also perlintro, open, perlopentut, and some of the articles in Input and Output, such as File Input and Output (but use the modern "three argument" call to open; the latter article is old and often uses "global" filehandles in its examples).