my $FolderRoot = 'M:/Multimedia';
my ( $FilePath, $Title2F ) = map { decode('cp932',$_) } @ARGV;

$Title2F =~ s/^.*\\//; # fail safe to avoid creating unexpected directory
$Title2F =~ s/ *#[0-9].*$//;
$Title2F =~ s/ *(?:最終話|第.{1,3}話).*$//;

chdir( encode('cp932', $FolderRoot ) );
unless( -d encode('cp932', $Title2F ) ){
mkdir( encode('cp932', $Title2F) );
}

if( -d encode('cp932', $Title2F ) ){
copy( encode('cp932', $FilePath) , encode('cp932', $Title2F) );
}else{
# error but no action is required.
}