12
m/00(\d{3})\.000(\d\d).00(\d{3})\.0000.0000/ and print "$1$2$3";
m/00(\d{3})\.000(\d\d).00(\d{3})\.0000\.0000/ and print "$1$2$3";