#!/usr/bin/perl
sub equalize
{ print((join "", sort grep { m/[a-z]/ } split m//, lc shift) . "\n") }; equalize
("I am an alicorn princess"); equalize
("M. A. Larson cries in panic.")
IyEvdXNyL2Jpbi9wZXJsCnN1YiBlcXVhbGl6ZSB7IHByaW50KChqb2luICIiLCBzb3J0IGdyZXAgeyBtL1thLXpdLyB9IHNwbGl0IG0vLywgbGMgc2hpZnQpIC4gIlxuIikgfTsgZXF1YWxpemUoIkkgYW0gYW4gYWxpY29ybiBwcmluY2VzcyIpOyBlcXVhbGl6ZSgiTS4gQS4gTGFyc29uIGNyaWVzIGluIHBhbmljLiIp