['substr faster' => sub { my $new = $olddate; substr($new, 0, 4, substr($new,0,4)."-"); substr($new, 0, 7, substr($new,0,7)."-"); $new }],