#!/usr/bin/perl 
# remplace '_' par '\_'

# le while boucle sur les lignes de STDIN
while(my $line = <STDIN>){
 $line =~ s/\_/\\\_/og ;
 print $line ;
}

close(STDIN);