народ, есть задача, прочесть директорию, а потом в именах файлов все служебные символы (скобки, амперсанды и т.п. ) заэкранировать бэкслэшем. ( "\" ), помогите плс.

регексп типа

#! /usr/bin/perl -w

@dir=<*>;

foreach (@dir){

$_ = ~s/\W/\$&/g

}

не сработал...
заранее спасибо.