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