$basename =~ s/\S*RDL/RDL/; $basename =~ s/.ruv$//;

##</code><code>##

s/\S*RDL/RDL/, s/.ruv$// for $basename;

##</code><code>##

$basename =~ s/\S*RDL((?s:.*)).ruv$/RDL$1/;