my $file="Bob_Smith"; 
$file =~ s/_/\\_/g;