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