properly case insensitive
my ($tag)=@_;
my $name=$tag;
if($name =~ /name *=/i) {
- if($name =~ /name *= *([^\"\']([^ \">]*))/) {
+ if($name =~ /name *= *([^\"\']([^ \">]*))/i) {
$name = $1;
}
- elsif($name =~ /name *= *(\"|\')([^\"\']*)(\"|\')/) {
+ elsif($name =~ /name *= *(\"|\')([^\"\']*)(\"|\')/i) {
$name=$2;
}
else {
# get value tag
my $value= $tag;
if($value =~ /[^\.a-zA-Z0-9]value *=/i) {
- if($value =~ /[^\.a-zA-Z0-9]value *= *([^\"\']([^ \">]*))/) {
+ if($value =~ /[^\.a-zA-Z0-9]value *= *([^\"\']([^ \">]*))/i) {
$value = $1;
}
- elsif($value =~ /[^\.a-zA-Z0-9]value *= *(\"|\')([^\"\']*)(\"|\')/) {
+ elsif($value =~ /[^\.a-zA-Z0-9]value *= *(\"|\')([^\"\']*)(\"|\')/i) {
$value=$2;
}
else {