my @meta_results; my $count = 0; my @lines = split /\n/, $content; while(<$content>) { if (//gi) { $count++; $meta_results[$count] = "$1::$2"; } } foreach (@meta_results) {print "$_\n";}