Help for this page

Select Code to Download

Select or download this

# --- Part one ---
@single = qw(I sit here and think-
...

$a=~ s/[,.?-]//g;
print "$_\n" for $a =~ /(\w+)/g;

Select or download this
```
I
sit
...
doing
with
perl
```