for (split ',', $ids) {
    die "$_: Invalid ID" unless /^(CWG)?(\d{3,})$/;
    print "ID $2";
}