open (FIDR, "< $radFile");
chomp($basename = <FIDR>);
$basename =~ s/\S*RDL/RDL/; ## this removes everything before RDL but has ".ruv"extension
$basename =~ s/.ruv$//; ##this removes the .ruv extension.