in reply to Re^2: Perl file name parsing - Regular expression
in thread Perl file name parsing - Regular expression

Yes you can, but you need to add a quantifier. For example:
s/ ^ ([\w_-]+) \. ([\w:]+) [A-Z]{3} \. /$1.$2./x;
or possibly:
s/ ^ ([\w_-]+) \. ([\w:]+) [A-Z]+ \. /$1.$2./x;
But you might have to watch out that [A-Z]+ will not match some other uppercase letter(s) before in some other file names.