perl - Perlで、文字列内の複数の10進数を16進数に変換するにはどうすればよいですか？

Question

Perlで、ファイルの1行にある複数の10進数を16進数に変換するにはどうすればよいですか？

最後に見つかった番号を変換するコードがありますが、前の番号は変換されません。最後に見つかった番号だけでなく、すべての番号を変換したいと思います。

if ($line =~ /[0-9]+/) {
   $loc = index($line,/\s+[0-9]+\s*/);
   $mybyte = substr($line,$loc);
   $newbyte = sprintf("%x\n", $mybyte);
   $newline = substr($line,0,$loc).$newbyte;
   print my_report $newline;
}

Answer 1

$line =~ s/([0-9]+)/sprintf "%X", $1/eg;