Well said, cLive ;-).

I usually edit my code before posting here, but since this time the question don't depends on var's names...

my ($author_nickname, $author_email) = ("DaWolf","erabbott\@terra.com.br") if ($author_name eq "Er Galvão Abbott");