$name = substr $name, 0, rindex( $name, q{replaced} );