Or, in Perl (might as well): #!/usr/bin/perl -w use strict; opendir(DIR, system('pwd')); my @files = readdir(DIR); closedir(DIR); my $new_name; foreach (@files) { $new_name = lc($_); $new_name =~ s/\ /\-/g; system('mv -i $_ $new_name'); }