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