Select Code to Download

if ((my $index = rindex( $name, q{.replaced})) > -1 ) {
    $name = substr $name, 0, $index;
}