Select Code to Download

[trwww@www misc]$ cat 618115.pl
use warnings;
use strict;
...
foreach my $particle (split /$pattern/, $text) {
  print $particle."\n";
}

[trwww@www misc]$ perl 618115.pl
jojo
has
...
sometimes
he
scratches