#!/usr/bin/perl

   $string = 'a=111a=222a=333';
   @list = $string =~ m{(a=\d+)}g;
   for (@list) { print "$_\n"; }