>perl -le "printf('%04d', '42a');"
0042