How to extract the first two characters of a string in shell scripting?

Question

For example, given:

USCAGoleta9311734.5021-120.1287855805

I want to extract just:

US

Answer 1

perl -ple 's/^(..).*/$1/'