Help for this page
$name =~ s/.replaced//;
>perl -wMstrict -le "my $name = 'e.coliXreplaced'; ... print qq{'$name'}; " 'e.coli'