BBEdit has the ability run both applescripts and perl programs. If I wanted to to this, I would install
Perltidy and write a small script to run Perltidy on the current buffer. The excellent BBEdit documentation should be able to show you how to do this.
Yup, and as an initialization file for perltidy, you could use the perltidyrc from Perl Best Practices. You can download the examples here. The following text is what's in that perltidyrc:
-l=78 # Max line width is 78 cols
-i=4 # Indent level is 4 cols
-ci=4 # Continuation indent is 4 cols
-st # Output to STDOUT
-se # Errors to STDERR
-vt=2 # Maximal vertical tightness
-cti=0 # No extra indentation for closing brackets
-pt=1 # Medium parenthesis tightness
-bt=1 # Medium brace tightness
-sbt=1 # Medium square bracket tightness
-bbt=1 # Medium block brace tightness
-nsfs # No space before semicolons
-nolq # Don't outdent long quoted strings
-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&
+= -= /= |=
>>= ||= .= %= ^= x="
# Break before all operators