$fname = 'test.txt'; 
$base = (split/\./, $fname)[0]; 
print "$base\n";