I might write something like this: UNTESTED

#!/usr/bin/perl

use strict;
use warnings;

# 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 my $curr_sub ( @Subscription ) {
    print "Beginning Subscription Service for $curr_sub->{Sub_Name}\n"
+;

    chdir "$Subscriptions_Path/$curr_sub->{Lib_Sub_Path}" or do {
        print "Could not find directory: $Subscriptions_Path/$curr_sub
+->{Lib_Sub_Path}\n";
        next;
        };

    opendir my $DH, '.' or die "Cannot open directory '$Subscriptions_
+Path/$curr_sub->{Lib_Sub_Path}' because: $!";

    while ( my $file = readdir $DH ) {
        next unless -f $file;

        my $new = $file;

        $new =~ s/_/ /g;

        rename $file, $new or do {
            print "Could not rename '$file' because: $!";
            next;
            };
        }
    print "Completing Subscription Service for $curr_sub->{Sub_Name}\n
+\n";
    }
[download]