[ split /:/, $etcpw->{$a} ]->[2]

##</code><code>##

(split /:/, $etcpw->{$a})[2]