Select Code to Download

#! /usr/bin/perl

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

  $ perl -w bf.pl <(perl bf.pl < bf.pl)
  Complex regular subexpression recursion limit (32766) exceeded at bf
+.pl line 5, <> chunk 1.
  ...

  sub data :lvalue { vec($data,$dpos,8) } # v5.16.1--OK; v5.12.3--Fail
  sub data :lvalue { vec($data,$dpos,8) //= 0 } # OK
  my @data;
  sub data :lvalue { $data[$dpos] &= 255 } # OK