Select Code to Download

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

$line1 =~ s{ addr:0x \K ([0-9a-fA-F]*) (?=\s+qospri) }
    { sprintf "%x", hex($1)+$num }xe;