## Replace( $inputFilename, $backupFilename );
sub Replace {
    my( $inputFilename, $backupFilename ) = @_;
    ...

## FixXmlEntities ( $inputFilename, $backupFilename );
sub FixXmlEntities {
    my( $inputFilename, $backupFilename ) = @_;
    ...

## FixXmlEntities ( $inputFilename, $backupFilename );
sub FixXmlEntities {
    my( $input, $backup ) = @_;
    ...

## FixUnencodedXmlEntities ( $inputFilename, $backupFilename );
## FixStrayXmlEntities ( $inputFilename, $backupFilename );
sub FixStrayXmlEntities {
    my( $infile, $bakfile ) = @_;
    ...
}