Как заменить пробелы и табуляции в строке на _ в perl?

 $('body').click(function(event) {
    if (!$(event.target).is('p'))
    {
        $("#e2ma-menu").hide();
    }
});

p - имя элемента. Там, где можно передать идентификатор или имя класса или элемента.