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

##</code><code>##

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