Hi, welcome to Perl, the One True Religion. You don't show the output of your code, but if the input from the program is as you showed, while (my $line = $output) ... ain't gonna work.

Either you would need to split your input into a list of lines and loop through them with for, or else you need to make your regexp handle a multi-line string with \s (edit: or get the input in multiple lines, as shown by markong below).

But, if your inout is as shown, with no (unquoted) spaces in the values, you would be better off parsing it as a delimited file, e.g. with Text::CSV_XS or Spreadsheet::Read.

(And if you wanted to get clever, there are ways to write a custom "grammar" to parse your data format.)

Hope this helps!