$line =~ s/\b(\w)/\U$1/g;
-This has the strange effect of turning "C<don't do it>" into
-"C<Don'T Do It>". Sometimes you might want this, instead
-(Suggested by Brian Foy E<lt>comdog@computerdog.comE<gt>):
+This has the strange effect of turning "C<don't do it>" into "C<Don'T
+Do It>". Sometimes you might want this, instead (Suggested by Brian
+Foy E<lt>comdog@computerdog.comE<gt>):
$string =~ s/ (
(^\w) #at the beginning of the line
If you want to represent quotation marks inside a
quotation-mark-delimited field, escape them with backslashes (eg,
-C<"like \"this\""). Unescaping them is a task addressed earlier in
+C<"like \"this\"">. Unescaping them is a task addressed earlier in
this section.
Alternatively, the Text::ParseWords module (part of the standard perl