Re: removing ASCII characters from array

[Me]

> > $data = "Sat Jun 23 01:07:31 2001,bytes=32,time=192ms,TTL=239";
> >
> > @array = $data =~ /=(\d*)/g;
> >
> > print "$array[0], $array[1], $array[2]\n";

> and for esthetics:
> 
> print join ',' @array;
> 
> timtowtdi =)

Or

    $_ = "Sat Jun 23 01:07:31 2001,bytes=32,time=192ms,TTL=239";
    s/[^\d,]//g;    # remove all but digits and commas
    print;

Indeed, timtowtdi :>