my $datestring = "20050725";
my $year = substr($datestring,0,4);
my $month = substr($datestring,4,2);
my $day = substr($datestring,6,2);
print "$month/$day/$year\n";