DB<100> $new_cycle=1

  DB<101> { $i=5; $j=10  } if( $new_cycle );
  DB<102>  p "i=$i,j=$j"
i=,j=

##</code><code>##

  DB<104> { $i=5; $j=10 ) } if( $new_cycle );

##</code><code>##

 perl  minitest.pl
syntax error at minitest.pl line 2, near ");"
syntax error at minitest.pl line 4, near "10 ) "
syntax error at minitest.pl line 4, near ");"
Execution of minitest.pl aborted due to compilation errors.
/cygdrive/f/_Scripts/Pl2py
[255]  # cat -n minitest.pl
     1  $new_cycle=1;
     2  { $i=5; $j=10; } if( $new_cycle );
     3  print "i=$i,j=$j\n";
     4  { $i=5; $j=10 ) } if( $new_cycle );