@chars = split(//,<STDIN>);
while(<STDIN>){
    $text.=$_
}
foreach(@chars){
    $text =~ s/_/$_/;
}
print $text;