#! /usr/bin/perl

($dpos, $data, $/) = (0, "");
sub data :lvalue { vec($data, $dpos, 8) }
<> =~ m{
  (?: [>] (?{++$dpos}) | [+] (?{++(data)}) | [.] (?{print chr data}) |
      [<] (?{--$dpos}) | [-] (?{--(data)}) | [,] (?{data= ord getc}) |
      [[] (?(?{data})(?0)|(?1)) []] | [^][<>.,+-]
  )*+\z | (?(?{data})(?0)|(?1)) | \z((?: [^][] | [[] (?1) []])*) }x;

BEGIN { *ARGV = *DATA unless @ARGV }
__DATA__
+++++[>+++++++++<-],[[>--.++>+<<-]>+.->[<.>-]<<,]