Select Code to Download

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

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