Is there anything in BBEdit that would do this. Can I link it to perltidy somehow? I'll find out now.

The easiest way would be to set it up as a unix filter. For example I have this:

#! /usr/bin/perl
# ~/Library/Application Support/BBEdit/
#    Unix Support/Unix Filters/perltidy.pl

use strict;
use warnings;
use Perl::Tidy;

my @destination;
Perl::Tidy::perltidy(
    source      => [ <> ],
    destination => \@destination,
);

print @destination;
[download]

bound to ctrl-t on my BBEdit.