#!/usr/bin/perl

use strict;
use warnings;

for (<@ARGV>) {
	# Change spaces to _
	my $new = $_;
	$new =~ s/\s/_/g;
	rename($_, $new) or die "Cannot rename '$_' to '$new': $!";

	# Capitalize
	my $new2 = $new;
	$new2 =~ s/(^|_)(\w)/$1\U$2/g;
	print "$_ -> $new2\n";
	rename($new, $new2) or die "Cannot rename '$new' to '$new2': $!";
}