MapWriter -> AnvilMapper Color file converter

#!/usr/bin/perl -w
use strict;

open (IN, "<", $ARGV[0]);

while (<IN>) {
        my $line = $_;
        my @field = split(' ',$line);
        if ($field[1] ne "*") { $field[1] = sprintf('%03x', $field[1]); }
        if (substr($field[0],0,2) eq "bl") {
                if ($field[2] ne "*") { $field[2] = sprintf('%x', $field[2]); }
        }
        print join(' ', @field) . "\n";
}