- or download this
#!/usr/local/bin/perl
$text = "Paulson and Federal Reserve Chairman Ben S. Bernanke proposed
+ the plan after the collapse";
$text =~ s/\b[^<]S\.[^=]\b/\<S\.=initial\>/g;
print "$text\n";
- or download this
Paulson and Federal Reserve Chairman Ben<S.=initial>Bernanke proposed
+the plan after the collapse
- or download this
Paulson and Federal Reserve Chairman Ben <S.=initial> Bernanke propose
+d the plan after the collapse