diff --git a/perl-xCAT/xCAT/Table.pm b/perl-xCAT/xCAT/Table.pm
index 39404a578..5a88a3aab 100644
--- a/perl-xCAT/xCAT/Table.pm
+++ b/perl-xCAT/xCAT/Table.pm
@@ -3505,7 +3505,9 @@ sub get_filelist
     {
           my $filename= basename($file);  # strip filename
           my($name,$ext1) = split '\.', $filename;
-          my($tmpname,$ext2) = split '\_', $name;
+          #my($tmpname,$ext2) = split '\_', $name;
+          my @parts = split '\_', $name;
+          my $ext2 = $parts[-1];  # get last element
           if ($ext2 eq $dbname)
           {
             push @filelist, $file;