Further improve displaying of individual logfiles

sub displaylogcontent {

    my ($file)=@_;

    if(open(my $SINGLE, "<$file")) {

        while(my $line = <$SINGLE>) {

            chomp $line;

        my $lfcount;

        while(my $string = <$SINGLE>) {

            $string =~ s/\r\n/\n/g;

            $string =~ s/[\r\f\032]/\n/g;

            $string .= "\n" unless ($string =~ /\n$/);

            $lfcount = $string =~ tr/\n//;

            if($lfcount == 1) {

                $string =~ s/\n//;

                $string =~ s/\s*\!$//;

                logmsg " $string\n";

            }

            else {

                for my $line (split("\n", $string)) {

                    $line =~ s/\s*\!$//;

                    logmsg " $line\n";

                }

            }

        }

        close($SINGLE);

    }

}