my $string = "eins.zwei.drei";
my $strg   = (split /\./, $string)[0];
print $strg, "\n";

$_    = $string;
$strg = (split /\./)[0];
print $strg, "\n";