Help for this page

Select Code to Download

Select or download this

$string =~ s/ __ (?: [a-zA-Z]_ ){1,2} /__/xms;