my $a = '/opt/video.00/Tiger_&_Dragon';
$a =~ s/\&/\\\&/ ;