2015/09.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.16;
   4 use strict;
   5
   6 my $sum;
   7 while (<>) {
   8         chomp;
   9         my $wov =()= /[aeiou]/g;
  10         next if $wov < 3;
  11         next if ! /(.)\1/;
  12         next if /ab|cd|pq|xy/;
  13         $sum++;
  14 }
  15 say $sum;