Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -l

...
      }
    }
  } until $_ eq $prev;

Select or download this

John apples,cherries,pears blacksmith,fisherman,programmer
Patrick apples,cherries,pears blacksmith,fisherman,programmer
...
Patrick pears blacksmith
Edward cherries programmer