while ($fifodata =~ s/^([^\n]*\n)//) {
    my $msg = $1;
    process_msg($msg);
}