Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
$line =~ s/-\K.*(?=-)/ $& =~ tr'-'_'r /e;

print "$line\n";

Select or download this

A A Milne - Winnie-The-Pooh and Silver-Bear vol5-12 - Xi Press - Pekin
+g (1998)
A A Milne - Winnie_The_Pooh and Silver_Bear vol5_12 _ Xi Press - Pekin
+g (1998)