open my $FIDR, '<', $radFile or die "Cannot open '$radFile' because: $!"; my ( $basename ) = <$FIDR> =~ m{/([^/]+)\.ruv$};