#! /usr/bin/perl -w
   use strict;

   my $r = qr{(.)};

   while ('abc' =~ /($r)/g)
   {
      print "loop $1\n";
   }

   foreach ('abc' =~ /($r)/g)
   {
      print "array $_\n";
   }

##</code><code>##

   loop a
   loop b
   loop c
   array a
   array a
   array b
   array b
   array c
   array c