#!perl -lp y/:/_/,$_=hex