Moved hub into the git plugin.

plugins/perl/functions/pgs

@@ -0,0 +1,12 @@
+# Perl Global Substitution
+if (( $# < 2 )); then
+  print "Usage: $0 find replace [file ...]" >&2
+  return 1
+fi
+
+local find="$1"
+local replace="$2"
+repeat 2 shift
+
+perl -i.orig -pe 's/'"$find"'/'"$replace"'/g' "$@"
+

plugins/perl/functions/prep

@@ -0,0 +1,11 @@
+# Perl grep since 'grep -P' is terrible.
+if (( $# < 1 )) ; then
+  print "Usage: $0 pattern [file ...]" >&2
+  return 1
+fi
+
+local pattern="$1"
+shift
+
+perl -nle 'print if /'"$pattern"'/;' "$@"
+