while (<>){
    chomp $_;
    $newline = $_ . "_";
    print $newline;
    print "\n";
}