$newphone = $phone;
$newphone =~ s/\D+//g; # NOT " = =~ " !!

$phonelength = length( $newphone );

$emph = ( $phonelength == 4 or $phonelength == 10 ) ?  "" : "****";

printf( PHONELIST "%16d %100s\n", $phone, $abs_filename);
printf( SUMMARY "%3d %16d %12d %4s %100s\n", ++$ctr,
        $phone, $newphone, $emph, $abs_filename );