Commit a842868

add dupewords.pl

 1@@ -0,0 +1,22 @@
 2+#!/usr/bin/env perl
 3+
 4+use 5.38.2;
 5+use strict;
 6+use warnings;
 7+
 8+use Term::ANSIColor qw(:constants);
 9+
10+sub readfile {
11+	print("paste writing:\n(submit text with ctrl+d)\n\n");
12+	my @writing = <STDIN>;
13+	print("\n\n"); # idk how to have it not print STDIN so linebreaks it is
14+
15+	foreach my $line (@writing) {
16+		if($line =~ /\b([A-Za-z]+) \1\b/) {
17+			print("found repeat: ");
18+			print(RED, "$&" , RESET, "\n");
19+		}
20+	}
21+}
22+
23+readfile