my %value_of = $app_text =~ /$LINE_PATTERN/g;

while (my ($field, $value) = each %value_of) {
    print "$field: $value\n";
}