Perls of wisdom

wisdom.pl

# Add line numbers to file
cat file | perl -wne 'while (<STDIN>) { print "$. $_" }'

# Add '!' prefix for WikiFormatting of classnames
# pattern:
#    - 2 or more capital letters
#    - no consecutive capital letters
# or use {{{ ... }}} for preformatted code block
cat file | grep -v "^\s*$" | sed -e "s/$/ [[br]]/g"  | perl -wne '$_ =~ s/(?!\w*[A-Z]{2,}\w*)((?<!")[A-Z]\w+[A-Z]\w+)/!$1/g; print;'