sub format_date { return join ".", (reverse unpack "A4xA2xA2", shift); }