#!/usr/bin/perl -pl
s/\s*(\d+)\s+(\d+)\s+(\d+)/sprintf('%08lx %02x %02x', $1-1, oct($2), oct($3))/e;