...
{
    my $re; BEGIN { $re = qr{(?x: [%/?<>\\:*|":] )} }

    for ... {
        ... s/$re/_/gr;
    }
}