TrimPHP: removes whitespace from EOF, EOL, and pointless ?>'s from EOF

trimphp

#!/usr/bin/perl

while(<>) {
    s/\s+$//s;
    push @l,$_;
    if(eof) {
        ($b=join("\n",@l))=~s/\s*(\?>)?\s*$/\n/s;
        print $b;
        undef @l;
    }
}