s/ ^ ([\w_-]+) \. ([\w:]+) [A-Z]{3} \. /$1.$2./x; 

##</code><code>##

 s/ ^ ([\w_-]+) \. ([\w:]+) [A-Z]+ \. /$1.$2./x;