DB<78> w if ($a>3 and $a <7){ print "\n$DB::line<a: $a>\n" }
  DB<79> L
Watch-expressions:
 if ($a>3 and $a <7){ print "\n$DB::line<a: $a>\n" }
  DB<79> c
0123
12<a: 4>
Watchpoint 0:	if ($a>3 and $a <7){ print "\n$DB::line<a: $a>\n" } changed:
    old value:	''
    new value:	'1'
  DB<79> c

10<a: 4>
4
11<a: 4>

12<a: 5>

10<a: 5>
5
11<a: 5>

12<a: 6>

10<a: 6>
6
11<a: 6>
Watchpoint 0:	if ($a>3 and $a <7){ print "\n$DB::line<a: $a>\n" } changed:
    old value:	'1'
    new value:	''