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

##</code><code>##

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