$data = ''; push @data, $1 while $data =~ /ci=(\d+)/g;