#!/usr/bin/perl -n
$c=$x=$_;
$x=~s/.*?:\s*(.*)/$1/;
$x=~s/(([\da-f]{2}\s)+).*$/$1/s;
$c=~s/(\s[\da-f]*:)\s*([\da-f]{2}\s)*\s*(.*?)/$1 $3/;
$c=~s/[\r\n]*//sg;
$x=~s/([0-9a-f]{2})\s*/\\x$1/g;
$x=~s/[\r\n]*//sg;
print "\t\"$x\",\t\t/* $c */\n";