$dbh    = &ora_login($DB,$UN,$PW) or
              die("Oracle login FAILED.");

$sql    = "select distinct(clli) from gvc_traffic30";

$cursor = &ora_open($dbh,$sql) or die("Failed query (bad query?). $!\n");
@MYARRAY= &ora_fetch($cursor) or die("Failed to get return from query. $!\n");

foreach my $clli ( @MYARRAY ) {
    chomp($clli);
    $c++;

    if ( /\W/ ) {
	print "Found bad character in line $c.";
    } else {
	print "This clli appears to be OK.";
    }
    print " : $clli\n";
}

##</code><code>##

$ perl traffic.pl
Use of uninitialized value in pattern match (m//) at traffic.pl line 36.
Use of uninitialized value in concatenation (.) at traffic.pl line 41.
This clli appears to be OK. :
$