Learning from Perl Golf (III) 

my ($functional, $varnames) = split(/\./, $line, 2);