It can be done. Is it precise? You be the judge:

#!/usr/bin/perl -l

use strict;
use warnings;
use Text::FromAny;

my $log = '/root/Desktop/text.log';

open STDOUT, '>', $log;
my $entries= "<TITLE>Page 7</TITLE>";
print $entries;
my $tFromAny = Text::FromAny->new(file => $log);
print $tFromAny->detectedType;
close STDOUT;
[download]

Instead of thinking "can't", think "don't do that". It works, but it's not best practice.