/(\d{4})(\d{2})\.dat/
$year=$1;
$month=$2;