if ($_ =~ /^\s+total wire length\:\s+\d.*\d\s*/) {
                    ($NetLength) = $_ =~ /^\s+total wire length\:\s+(\d.*\d)\s*/;

##</code><code>##

if (/^\s+total wire length\:\s+(\d.*\d)\s*/) {
  $NetLength = $1;