Tag Cloud Perl 1 Liner perl -le 'print join "\n", split /(.{55,}?(?= ))/, \ join " ", map {chomp;$_} \ sort {(rand) <=> (rand)} <>' Notes/Ingy-Cloud -- Domo Ishigaki-san!!