diff --git a/hardware/server/dell/openmanage/mode/components/cpu.pm b/hardware/server/dell/openmanage/mode/components/cpu.pm
index ba4318acd..6a9fe1aac 100644
--- a/hardware/server/dell/openmanage/mode/components/cpu.pm
+++ b/hardware/server/dell/openmanage/mode/components/cpu.pm
@@ -88,7 +88,7 @@ sub check {
     return if (scalar(keys %$result2) <= 0);
 
     foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
-        /\.(\d+)$/;
+        $key =~ /\.(\d+)$/;
         my $cpu_Index = $1;
         
         my $cpu_Status = $result->{$_};
diff --git a/hardware/server/dell/openmanage/mode/components/fan.pm b/hardware/server/dell/openmanage/mode/components/fan.pm
index fd36358ce..492f71eef 100644
--- a/hardware/server/dell/openmanage/mode/components/fan.pm
+++ b/hardware/server/dell/openmanage/mode/components/fan.pm
@@ -70,7 +70,7 @@ sub check {
     return if (scalar(keys %$result2) <= 0);
 
     foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
-        /(\d+)\.(\d+)$/;
+        $key =~ /(\d+)\.(\d+)$/;
         my ($chassis_Index, $fan_Index) = ($1, $2);
         my $instance = $chassis_Index . '.' . $fan_Index;
         
diff --git a/hardware/server/dell/openmanage/mode/components/psu.pm b/hardware/server/dell/openmanage/mode/components/psu.pm
index b7f9aeeb4..7002b2895 100644
--- a/hardware/server/dell/openmanage/mode/components/psu.pm
+++ b/hardware/server/dell/openmanage/mode/components/psu.pm
@@ -96,7 +96,7 @@ sub check {
     return if (scalar(keys %$result2) <= 0);
 
     foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
-        /(\d+)\.(\d+)$/;
+        $key =~ /(\d+)\.(\d+)$/;
         my ($chassis_Index, $psu_Index) = ($1, $2);
         my $instance = $chassis_Index . '.' . $psu_Index;
         
diff --git a/hardware/server/dell/openmanage/mode/components/temperature.pm b/hardware/server/dell/openmanage/mode/components/temperature.pm
index f9f35bb11..2fd2b888a 100644
--- a/hardware/server/dell/openmanage/mode/components/temperature.pm
+++ b/hardware/server/dell/openmanage/mode/components/temperature.pm
@@ -83,7 +83,7 @@ sub check {
     return if (scalar(keys %$result2) <= 0);
 
     foreach my $key ($self->{snmp}->oid_lex_sort(keys %$result)) {
-        /(\d+)\.(\d+)$/;
+        $key =~ /(\d+)\.(\d+)$/;
         my ($chassis_Index, $temperature_Index) = ($1, $2);
         my $instance = $chassis_Index . '.' . $temperature_Index;