my $string = #07082005';
my ($day,$month,$year) = $string =~ /(\d{2})(\d{2})(\d{4})/;
print $year,"-",$month,"-",$day,"\n";