Select Code to Download

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

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