if ( $line =~ /([[:cntrl:]])/ )
                {
                my $c = $1;