while (<LOGDATA>) {
    $logline=$_;
    $logline =~ s/</&lt;/g;
    $logline =~ s/>/&gt;/g;
    print ("The whole line is --->  ",$logline);
}