[wplug] Interesting question du jour

[billings at negate.org]

Since everyone else has done it sufficiently, I only thought I'd add my
solution, in one line:

perl -pe 's/((..:){5})(..)$/"$1$3\t$1".sprintf("%02X",hex($3)+1)/e;'

-- 
Jonathan S Billings <billings at negate.org>
TSFNKP