perl -MO=Deparse -lpe "s/^\s*\d+://;"