while(<STDIN>)
{
    # see previous answer
    #undef ($/);
    $string=$_;
    my @matches = ($string =~ m/(FINDINGS|COMPLICATIONS|:.*)/g);
    print STDOUT "@matches \n";
}

echo "FINDINGS COMPLICATIONS :something" | t.pl