#!/usr/bin/perl
use strict;

open (DATA,$ARGV[0]) or die "unable to open";

print "#include <stdio.h>\n#include <stdlib.h>\n\n";
print "int main(void) {\n\tunsigned char *k = calloc(2000, 1);\n";

while (<DATA>) {
        s/>/\t\t++k;\n/g;
        s/</\t\t--k;\n/g;
        s/\+/\t\t++*k;\n/g;
        s/\-/\t\t--*k;\n/g;
        s/\./\t\tputchar(*k);\n/g;
        s/\,/\t\t*k = getchar();\n/g;
        s/\[/\twhile (*k) {\n/g;
        s/\]/\t}\n/g;
        print "$_";
}

close DATA;

print "\treturn 0;\n}\n";
##</code><code>##

$ perl -v

This is perl 5, version 20, subversion 2 (v5.20.2)