Help for this page
unless ($basename =~ /^(.{4}|.{10})_(.{10})_(.{8})_(.{6})_(.{10})_(.{8 +})\.(.{3})(\.gz)?$/) { # ...
# Validate Filename Structure if ($basename =~ /^(.{4}|.{10})_(.{10})_(.{8})_(.{6})_(.{10})_(.{8})\. +(.{3})(\.gz)?$/) { ... abort __LINE__,"failed to move unhandled file '$filename'!"; } }