1309:           if ( $value =~ m/^([A-Za-z0-9!#$%&'*+-.^_`|~]+) \s* : 
+\s* (.*)$/x ) {
[download]

Regular expressions, like double quoted strings, interpolate scalars and arrays so the $ and @ characters have to be escaped:

           if ( $value =~ m/^([A-Za-z0-9!#\$%&'*+-.^_`|~]+) \s* : \s* 
+(.*)$/x ) {
[download]