my ($name,  $temp) = split("\.", $filename)
if...undsoweiter