Re: Regexp match question !

[WC -Sx- Jones]

Daniel Stellwagen wrote:
my $number = 11;    # two-digit number


my $number;

while ($number < (5*11)) {
  ++$number =~ /(\d)(\d)?/;
  print "Seen $1 and $2 \tby looking at $number\n";
}
__END__

HTH/Sx

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>