Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...
s/([\w]{2})(?!$)/$1:/gio, "\n<BR>";

print "$_\n<BR>";

s/
    ([\w]{2})      # matches a pair of letters/numbers
    (?!$)          # matches NOT end of string (zero-width negative lo
+okahead assertion)
/$1:/giox;         # replace pair with trailing colon