$firstname = s/[a-zA-Z][a-zA-Z]^z{3}?^[a-zA-Z]^/{$1}/e; 
$lastname = s/^[a-zA-Z]^ZZZ[a-zA-Z]/{$1}/e;