#Perlだけどこれではいかんでしょうか

$output =~ s/([0-9A-F]{16})/$1_/g;
$output =~ s/_/00/g;