Select Code to Download

unless ( $ObjectID1 =~ /$sysName(.*)/ ) { last; }
# does this what you want? -----^^^^

$ObjectID2 = $prtCoverStatus.$1;