my $in_date = '051407';
(my $db_date = $in_date) =~ s/(\d\d)(\d\d)(\d\d)/$1-$2-$3/;
print ":$db_date:";