$date = "20031006";
$date = join "-",unpack("a4a2a2",$date);