in reply to Removing underscores.

something like: 

 $text =~ s/_+\././;

[download]
I would guess

/J\

In Section Seekers of Perl Wisdom