for ( $sysDescr ) {
   /^$prefixSysDescr/ && do {
     s/^$prefixSysDescr//;
    last;
    };
} # end of case