I have following locale strings:

```
pl_PL
en_GB

```

Is it possible to convert it with some native function that works with real locale dataset into:

```
pl
en

```

Solutions like:

```
list($short) = explode('_', 'pl_PL');

```

is not expected right now.