my ($image) = map { /^SystemImage:\s*([^\n]+)/ ? $1 : () } $res->resul +t(); [download]
In reply to Re^3: problems parsing data by ikegami in thread problems parsing data by zonevbkr