Help for this page

Select Code to Download


  1. or download this
    perl -0777 -ne 'print "" . ( join "", "A" .. "Z" ) =~ s/[^$_]/ /gr =~ 
+s/\B\w+\B/-/gr =~ s/ +//gr'
  2. or download this
    A-IK-NP-TVWYZ
  3. or download this
    perl -0777 -ne 'print "" . ( join "", "A" .. "Z" ) =~ s/[^$_]/ /gr =~ 
+s/(?<=\w)\w*(?=\w)/-/gr =~ s/ +/ /gr'