Unless you want to write a kernel mode filter driver to insert into the serial port's driver stack, you can't do it. Such a driver you can not write in Perl btw.

A better solution is to combine the logging and management (terminal app replacement) applications into one.