Perl log file splitter to separately files per regex pattern