There are \p{Script=Latin} (also can be written as \p{sc=Latin}) and \p{Uppercase}.
But there is currently no way to select an intersection of multiple sets like /^([ \p{Script=Latin} & \p{Uppercase} ])/ in Perl ≥5.18 or \p{Script=Latin,Uppercase}.
So the task is to find a workaround.
Example input:
const input = [
'License: GPL!',
'License: WÐFPL!',
'License: None!',
]
Example output: ['GPL', 'WÐFPL']
The answer could use use a regexp that looks like this for example: /^License:\s*(?<abbr>\p{Script=Latin,Uppercase}+)!$/u