$mod_file_name = $file_name_jpg;
$mod_dp = '-' . $jv . 'pc.';
# normal

$mod_file_name =~ s/\./$mod_dp/;
$rc = $img_copy->Write($dir_name . '\\' . $mod_file_name);

$mod_file_name =~ s/jpg/pdf/;
$rc = $img_copy->Write($dir_name . '\\' . $mod_file_name);

# compressed
$mod_file_name = $file_name_jpg;
$mod_dp = '-' . $jv . 'pc-compressed.';

$mod_file_name =~ s/\./$mod_dp/;
$rc = $img_copy->Write(filename => $dir_name . '\\' . $mod_file_name, compression => 'LZW', quality => 75);
$mod_file_name =~ s/jpg/pdf/;
$rc = $img_copy->Write(filename => $dir_name . '\\' . $mod_file_name, compression => 'LZW', quality => 75);