in reply to Split returning one element

print STDOUT (split /\./, 'www.google.com')[0];

[download]

In Section Seekers of Perl Wisdom