1 files changed, 8 insertions, 0 deletions
diff --git a/HAMM.pl b/HAMM.pl
new file mode 100644
index 0000000..0debb4a
--- /dev/null
+++ b/HAMM.pl
@@ -0,0 +1,8 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use 5.016;
+
+chomp(my $line1 = <>);
+chomp(my $line2 = <>);
+say length(($line1 ^ $line2) =~ s/\x00//gr);