($EDO) = $_ =~ /=*EDO=(\w+[-]\w+[-]\w+)=*/ if /^=/;

##</code><code>##

($EDO) = $_ =~ /=*EDO=(\w+)=*/ if /^=/;