my ($NameWithoutExtension)=$basename=~/(RDL.+)\.\w+/;