$fullname =~ /^(.)\S*\s(.+)/;
$fullname = "$1. $2";