perl -e '
$fname = "test.txt";              # Double quotes! 
$base = (split(/\./,$fname))[0];  # Escape dot!
print "$base\n";'