print rindex( $name, q{replaced} );

##</code><code>##

my $name = "e.coli.replaced";
$name =~ s/.replaced//;