utashiro@sran84.sra.co.jp (Kazumasa Utashiro) (08/13/90)
#!/usr/bin/perl $_="123456789"; print "$1, $2\n" if (/(.{3})(.{3})/); print "$1, $2\n" if (/(.{3,3})(.{3})/); print "$1, $2\n" if (/(.{3,3})(.{3,3})/); __END__ Feeding this message to "perl -x" produce: 123456, 789 123, 456789 123, 456 I think this is a bug incorporated by patch #19-27. --- K. Utashiro utashiro@sra.co.jp