------------------------------------
#!usr/bin/perl
unlink("ccix.sdp_trc");

    $num = 0x500000000;
                
open (IN_FILE, "$ARGV[0]") or die "Please provide an input file\n";
open (OUT_FILE, ">>ccix.sdp_trc");


while (my $line1 = <IN_FILE>) {
  if( ($line1 =~ /addr/) ) {
  $line1 =~ /addr:([a-z0-9-]+)\s+/;
  print "%$1\n";

my $one = ($num + $1);
   $line1 =~ s/addr\:0x.*qospri/addr\:$one qospri/;
   printf OUT_FILE ("$line1");
    }
   else {
   printf OUT_FILE ("$line1");
    }
}
----------------------------------------------------