$line1 =~ /addr:([a-z0-9-]+)\s+/;
my $one = $num + hex $1;
$one = sprintf "0x%x", $one;
$line1 =~ s/addr\:0x.*qospri/addr\:$one qospri/;