DB<1> $line = 'Cache::Cache(3)'

  DB<2> x ($page , $section) = ( $line =~ /^((?:\w|:|-)+)(\(.*?\))?/)
0  'Cache::Cache'
1  '(3)'
  DB<3> $line = 'dhcp-config(5)'

  DB<4> x ($page , $section) = ( $line =~ /^([\w:-]+)(\(.*?\))?/)
0  'dhcp-config'
1  '(5)'
  DB<5>