#!/usr/bin/perl

use strict;
use warnings;

my $line;
my $file;
my $count;

foreach my $arg (@ARGV)
{
  open FILE, $arg or die "Cannot read '$file': $! ";
  while (<FILE>)
  {
    $line = $_;
    $line =~ s|\x88|<inlinemediaobject><imageobject><imagedata fileref="&images3;Left\.gif"></imageobject><textobject><phrase>&larr\;</phrase></textobject></inlinemediaobject>|g;
    $line =~ s|\x89|<inlinemediaobject><imageobject><imagedata fileref="&images3;Right\.gif"></imageobject><textobject><phrase>&rarr\;</phrase></textobject></inlinemediaobject>|g;
    $line =~ s|\x8A|<inlinemediaobject><imageobject><imagedata fileref="&images3;Down\.gif"></imageobject><textobject><phrase>&darr\;</phrase></textobject></inlinemediaobject>|g;
    $line =~ s|\x8B|<inlinemediaobject><imageobject><imagedata fileref="&images3;Up\.gif"></imageobject><textobject><phrase>&uarr\;</phrase></textobject></inlinemediaobject>|g;
    print $line;
  }
}
