1#!./perl 2 3$n=0; 4 5print "1..3\n"; 6 7sub foo { 8 $a='abcd'; 9 10 $a=~/(.)/g; 11 12 $1 eq 'a' or print 'not '; 13 print "ok ",++$n,"\n"; 14} 15 16$a=foo; 17@a=foo; 18foo; 19