# (1) in sub SearchFile:

PRINT("FOUND: $FULLNAME");                       # original
printf " %-8dFOUND: %s\n", $TOTAL, $FULLNAME;    # replacement

# (2) in sub CheckDIR:

if ($VERBOSE) { PRINT("SEARCHING: ", FormatPath($PATH)); }               # original
printf " %-8dSEARCHING: %s\n", $TOTAL, FormatPath($PATH) if $VERBOSE;    # replacement

##</code><code>##

use Const::Fast;

const my $ASTERISK => 42;
const my $DOT      => 46;
const my $QUESTION => 63;
# etc.