split_md5

   1 #!/usr/bin/env perl
   2
   3 # split_md5
   4 # File ID: c6346df6-5d44-11df-9981-90e6ba3022ac
   5 # Setter inn punktumer i MD5'er, gjør det mer leselig.
   6
   7 use strict;
   8 use warnings;
   9
  10 my $L = "0123456789abcdef";
  11
  12 while (<>) {
  13         s/\b([$L]{4})([$L]{4})([$L]{4})([$L]{4})([$L]{4})([$L]{4})([$L]{4})([$L]{4})\b/$1.$2.$3.$4.$5.$6.$7.$8/g;
  14         print;
  15 }