my @values = split(/\r\n/, $output);

foreach my $val (@values) {
	print "$val\n";
}