alexagranov · November 2, 2016 19:01
diff --git a/count_tabs.pl b/count_tabs.pl
 #!/usr/bin/perl

 use strict;
 use warnings;
 use v5.18;
 
 my $MAX_TABS = 22;
 while (<STDIN>) {
   chomp $_;
   my $c = ($_ =~ tr/\t//);
   if ($c > $MAX_TABS) {
      say "There are $c on line $.";
   }
 }
	#!/usr/bin/perl

	use strict;
	use warnings;
	use v5.18;

	my $MAX_TABS = 22;
	while (<STDIN>) {
	chomp $_;
	my $c = ($_ =~ tr/\t//);
	if ($c > $MAX_TABS) {
	say "There are $c on line $.";
	}
	}