#!/usr/bin/env perl

use strict;
use warnings;

use autodie;
use File::Find;
use File::Rename;
use Data::Dumper;

# VARIABLES
# Subscriptions Library & Archive Path variables for clarity
my $Subscriptions_Path = "/mnt/hgfs";


# Subscription DATA sets

my @Subscription = ( 
     {
     Sub_Name               => "T 1",
     Lib_Sub_Path           => "VM-Share",
	 Keep_Duration          =>  0,
     },
     {
     Sub_Name               => "T 2",
     Lib_Sub_Path           => "VM-Share/xtr",
	 Keep_Duration          =>  0,
     },
     {
     Sub_Name               => "T 3",
     Lib_Sub_Path           => "VM-Share/xtr 2",
	 Keep_Duration          =>  0,
     }
);

for (@Subscription) {
     print "Beginning Subscription Service for $_->{Sub_Name} \n";

     print "The absolute library path is: $Subscriptions_Path/$_->{Lib_Sub_Path}\n";
	 my @path = glob("'$Subscriptions_Path/$_->{Lib_Sub_Path}/*'");
	 print Dumper(\@path); 
	 print "\n";
     if (@path) {
	 File::Rename::rename(\@path,{
		 _code     => sub { s/_/ / },
		 verbose   => 1,
		 no_action => 1,
	 }
     ); };
     print "Completing Subscription Service for $_->{Sub_Name} \n\n";
}

##</code><code>##

Beginning Subscription Service for T 1 
The absolute library path is: /mnt/hgfs/VM-Share
$VAR1 = [
          '/mnt/hgfs/VM-Share/2023-05-23.json',
          '/mnt/hgfs/VM-Share/Hello my Pony.txt',
          '/mnt/hgfs/VM-Share/New folder',
          '/mnt/hgfs/VM-Share/New Text Document.txt',
          '/mnt/hgfs/VM-Share/pia-linux-3.3.1-06924.run',
          '/mnt/hgfs/VM-Share/sub_test.pl',
          '/mnt/hgfs/VM-Share/Subscriptions',
          '/mnt/hgfs/VM-Share/subscriptions.pl',
          '/mnt/hgfs/VM-Share/test_rename.pl',
          '/mnt/hgfs/VM-Share/Torrents',
          '/mnt/hgfs/VM-Share/UK stopping covid primary vaccinations [bpzd74_gZJk].webm',
          '/mnt/hgfs/VM-Share/xtr',
          '/mnt/hgfs/VM-Share/xtr 2'
        ];

rename(/mnt/hgfs/VM-Share/sub_test.pl, /mnt/hgfs/VM-Share/sub test.pl)
rename(/mnt/hgfs/VM-Share/test_rename.pl, /mnt/hgfs/VM-Share/test rename.pl)
rename(/mnt/hgfs/VM-Share/UK stopping covid primary vaccinations [bpzd74_gZJk].webm, /mnt/hgfs/VM-Share/UK stopping covid primary vaccinations [bpzd74 gZJk].webm)
Completing Subscription Service for T 1 

Beginning Subscription Service for T 2 
The absolute library path is: /mnt/hgfs/VM-Share/xtr
$VAR1 = [
          '/mnt/hgfs/VM-Share/xtr/test_rename.pl'
        ];

rename(/mnt/hgfs/VM-Share/xtr/test_rename.pl, /mnt/hgfs/VM-Share/xtr/test rename.pl)
Completing Subscription Service for T 2 

Beginning Subscription Service for T 3 
The absolute library path is: /mnt/hgfs/VM-Share/xtr 2
$VAR1 = [
          '/mnt/hgfs/VM-Share/xtr 2/Dogs are our_enemies.txt'
        ];

rename(/mnt/hgfs/VM-Share/xtr 2/Dogs are our_enemies.txt, /mnt/hgfs/VM-Share/xtr 2/Dogs are our enemies.txt)
Completing Subscription Service for T 3