open INFO, '<', 'testdoc.txt' or die "Can't open testdoc.txt: $!";

##</code><code>##

for (split//,$line) {
            $test = sprintf "\%3o\n", ord $_;

                       if ($test == 14) {

##</code><code>##

my $char = chr oct 14;
while (my $line = <INFO>){
   if ($line =~ m/\Q$char\E/){
      # do whatever you want
   }
}