my $split_me = 'www.xyz.com';
my $split_char = qr{\.};
$split_me =~ s/$split_char.*$//;
# 'www'
[download]

Or to just print the value:

print $split_me=~/^(.*?)$split_char.*$/;
[download]