use 5.010;
use strict;
use warnings;
use File::Slurp qw(slurp);

my $text     = slurp(__FILE__);
my $length   = length $text;
my $perlish  = ($text =~ y(@$%;{}[]<>=~)//);
my $metric   = $perlish / $length;

say "Metric is $metric";

if ($metric > 0.10) {
	say "Looks like code";
}

elsif ($metric < 0.03) {
	say "Looks like text";
}

else {
	say "Debatable";
}