#!/usr/bin/perl  

use strict;
use warnings;

open F, '<', 'notes.txt_error' or die "Open output file failed: $!";

my $row;
my $line;

$row = 0;
while (<F>)
        {
        chomp;
        $line = $_;
        $row++;
        if ( $line =~ /([[:cntrl:]])/ )
                {
                my $c = $1;
                printf  "%u : ||%s||\n", $row, $line;
                printf  "\t : ||%s||\n", ord ($c);
                print  "---------------------------";

                }
        }

close F;