#!/usr/bin/perl -w
use strict;

my $string = q|<STYLE TYPE="application/x-javascript" Language='English' TYPE="application/x-javascript">|;
printf "%s\n", $string;

$string =~ s¡<STYLE\s([^>]*>)¡
          {
            my $trt = $1;
#            $trt =~ s!type=\S+?(\s|"|')!TYPE="text/css"!igs;
            $trt =~ s!type=\S+?[ '">]!TYPE="text/css"!igs;
            $trt .= '>' if substr($trt,-1,1) ne '>';
            qq(<STYLE $trt)
          }¡eigsx;

printf "%s\n", $string;