$report = (sort glob "$path/*B1006*")[-1];

##</code><code>##

chomp($report = `ls $path/*B1006* |tail -n 1`);