Select Code to Download

####program.pl
#!/usr/bin/perl
...
print WF1 "pattern:\'$parts[0]\'\n";
print WF1 "rightside of pattern:\'$parts[1]\'\n";
print WF1 "leftside of pattern:\'$parts[2]\'\n";

pattern:'(indicates that the (writer [considered] the {information}) l
+ess <important—almost> an afterthought)'
rightside of pattern:'.'
leftside of pattern:'The use of parentheses'

$string = 'The (use {of}) parentheses (indicates that the (writer [con
+sidered] the {information}) less <important—almost> an afterthought).
+';

...
rightside of pattern:' parentheses (indicates that the (writer [consid
+ered] the {information}) less <important—almost> an afterthought).'
leftside of pattern:'The'