$input =~ /^(?:[^_]|_(?!${value}))+_${value},((?:[A-Z]\d{1,2},?)+).*/;

##</code><code>##

$input =~ /$value,((?:\w\d{1,2},?)+)/;