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