my $f;
Opendir($f,".");
my $filename;
while ($filename=readdir($f)) {
  if ($filename=~/\.avi$/) {
    $filename=~s/([ \[\];$'"()])/\\$1/g; #adds \ before spaces, brackets and other special chars
    ...
  }
}