brainfuck to C transpiler

bf2c.pl

#!/usr/bin/perl -p

# bf2c.pl
# a primitive brainfuck to C transpiler
#
# usage: perl bf2c.pl program.bf | gcc -O2 -o program -xc -

BEGIN {

%w = qw(
  -   t[p]--;
  +   t[p]++;
  <   p--;
  >   p++;
  [   while(t[p]){
  ]   }
  .   putchar(t[p]);
  ,   (c=getchar())==EOF||(t[p]=c);
);

print '#include <stdio.h>

unsigned char c, t[65536];
unsigned short p;

int main() {
'
}

s/\S/$w{$&}/ge;

print '  ';

END {
print '
}'
}