#!/usr/bin/perl

use strict;
use warnings;

my $line;
my $file;

while (<ARGV>)
{
  open FILE, $ARGV or die "Cannot read '$file': $! ";
  while (<FILE>)
  {
    $line = $_;
    $line =~ s/\[Left.gif\]/\x88/g;
    $line =~ s/\[Right.gif\]/\x89/g;
    $line =~ s/\[Down.gif\]/\x8A/g;
    $line =~ s/\[Up.gif\] /\x8B/g;
    print $line;
  }
}