A Perl script to generate Brainfuck code that prints the corresponding string in Brainfuck