Select Code to Download

#! perl -slw
use strict;
...
The seller has the following *fruit* types:  *apples* , *oranges* , *p
+ears* , *berries* , and *mangoes* .
The seller has the following *fruit* types: ( *apples* , *oranges* , *
+pears* , *berries*  and *mangoes* ).
The seller has the following *fruit* types:  *apples* , *oranges* , *p
+ears* , *berries*  and *mangoes* .

c:\test>785401.pl
The seller has the following *fruit* types:*(#apples#,#oranges#,#pears
+#,#berries#and#mangoes#)*.
The seller has the following *fruit* types:*(#apples#,#oranges#,#pears
+#,#berries#and#mangoes#)*.
The seller has the following *fruit* types:*(#apples#,#oranges#,#pears
+#,#berries#and#mangoes#)*.
The seller has the following *fruit* types:*(#apples#,#oranges#,#pears
+#,#berries#and#mangoes#)*.