#!/usr/bin/perl -ws
use strict;
my $oggdir = '/media/tmp/';
chdir $oggdir or die "can't chdir to $oggdir: $!\n\n";
opendir(DIR, $oggdir) or die "can't open $oggdir for read: $!\n\n";
my @files = grep { /.*_+.*\.[Oo][Gg]{2}$/ } readdir(DIR);
closedir(DIR) or warn "error closing $oggdir: $!\n\n";

foreach ( @files ) {
  my @chars = split(/_+/, $_);
  my $final=join(" ", @chars);
  print "Original: $_ \n";
  print "New: $final \n";
  rename $_, $final;
  print "Conversion Complete.\n";
}