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

##</code><code>##

$ObjectID2 = $prtCoverStatus.$1;