l42.pl

   1 #!/usr/bin/perl -w
   2 use strict;
   3 use warnings;
   4 my $text= 'Variable names in Perl can have several formats. Usually,
   5 they must begin with a letter or underscore, in which case they
   6 can be arbitrarily long (up to an internal limit of 251 characters)
   7 and may contain letters, digits, underscores, or the special
   8 sequence :: or \’. In this case, the part before the last :: or \’
   9 is taken to be a package qualifier; see perlmod.';
  10
  11 while ($text =~ /\b(\w{5,})\b/g)
  12   {
  13     print "$1\n";
  14   }