Select Code to Download

otto letter character 
1221 123324 123431564

((\w)(?!\2)(\w)(?!\3|\2)(\w)(?!\4|\3|\2)(\w)\4\2(?!\5|\4|\3|\2)(\w)(?!
+\6|\5|\4|\3|\2)(\w)\5)

#!/usr/bin/perl

...
    }
    print join (", ",@l), $/ if @l;
}