2017/08.pl

   1 #!/usr/bin/perl
   2
   3 use v5.30;
   4 use strict;
   5
   6 my $valid = 0;
   7 LINE:
   8 while (<>) {
   9         chomp;
  10         my %seen;
  11         for my $w (split /\s+/) {
  12                 my $w1 = join('', sort split //, $w);
  13                 next LINE if $seen{$w1}++;
  14         }
  15         $valid++;
  16 }
  17
  18 say $valid;
  19