my( $ext, $name )=(@_=split/\./, $filename and pop @_, join '.', @_);