my ( $name, $value ) = ( $line =~ /^\s*(.*?):\s*(.*)$/ );