elsif ( $item !~ m{^String} ) { ... }

My interpretation is that the  StringA etc. input items are supposed to represent any input strings at all rather than strings that all start with 'String'. I think that only the 'JOB::...', 'Something' and 'Something Else' strings are supposed to be constants.