カレントフォルダ内のファイル名一括置換
#!/usr/bin/perl
use strict;
use warnings;
for (glob("*.jpg")){
my $pre_name = $_;
s/_.*.jpg/.jpg/;
my $new_name = $_;
rename $pre_name, $new_name;
}