$dest =~ s/\W+\[MSRN\]|\W+/_/g;
    $dest =~ s/_$//;


##</code><code>##

    $dest =~ s/(?:\W+(?:MSRN\])?|\W+)(?(?=$)(?{$%=1})|(?{$%=0}))/$%?'':'_'/ge;