$filename = "ccsCDRFileGenerator-0-24161-1176950330-17914920070419_2.CDR";

($yyyymmdd) = $filename =~ m/\d+(\d{8})\_\d+\.CDR$/;

print "DATE is : $yyyymmdd \n"