$_ = "1122a44"; 
 
while( m/\G(\d\d)/gc ) 
  { 
      print "Found $1\n"; 
  } 
 
##</code><code>##

[tbone@horse1 US]$ perl g.pl 
Found 11 
Found 22 
[tbone@horse1 US]$