Help for this page

Select Code to Download

Select or download this

use strict ; use warnings ;

...
  $s =~ s/(?<=:)0{8}(?=:)//g ;
  return $s ;
} ;