Kamang! AlbertLee

# join, split, map 
sub normalise_name{
    join(" ", map {ucfirst lc $_} split(/\s+/, shift));   
}
print normalise_name("albert lee");