#!/usr/local/bin/perl -w
use strict;
my $olddate = "20020911";
my $newdate;

map { /([\d]{4})([\d]{2})([\d]{2})/; $newdate= "$1-$2-$3"; } $olddate;

print $newdate."\n";