if ($line =~ m/\014/) {
  # $line contains a Control-L
}

##</code><code>##

$test = sprintf("%o", ord $_);
if ($test eq "14") {
  ...
}