(@instances) = $line =~ m/[A-Z]{2}\d{11}/g; foreach $elem (@instances) { print $elem . ","; } [download]
In reply to Re: Re: Re: Newbie reg.exp question! by RuneK in thread Newbie reg.exp question! by RuneK