#!/usr/bin/perl

use strict;
use warnings;

my $out = qq(/home/smith/out);
open (my $file, "+<", $out) or die $!;

local $/ = ',';
while (<$file>) {
    s/^\s+|\s+$//g;
    my ($msgagt) = $_ =~ /\w+=([^,]+)/;
    print $msgagt, "\n";
}