$ perl -E '
    use lib ".";
    use Pm_11110263_FilenameGen "gen_filename";
    say gen_filename($ARGV[0]);
' 'daily_~DATE DMY~_monthly_~DATE MY~_yearly_~DATE Y~.log'
daily_21122019_monthly_122019_yearly_2019.log