###################################################################
### This perl script is used to offset ipxi files		###
### Usage: perl offsetipxi.pl < test.ipxi > test.ipxi	   	###
### First specify the offset				   	###
### Generated by: Shane Blackett	On: 14/12/2006	   	###
###################################################################

use strict;

my $offset = 1000;

while (<>)
  {
     s/(^\s+)([\d]+)/"$1".$2+$offset/e;
     print;
  }