- 'accountcode', #Account number
- skip(2), #SERVICE LOC / BILL NUMBER
- sub { my($cdr, $date) = @_;
-
- }, #date
+ skip(3), #Account number/ SERVICE LOC / BILL NUMBER
+ sub { my($cdr, $date) = @_;
+ $date =~ /^(\d{1,2})\/(\d{1,2})\/(\d{4})$/
+ or die "unparseable date: $date";
+ ($tmp_mon, $tmp_mday, $tmp_year) = ($1, $2, $3);
+ }, #date