my ($label) = /\.([^\.]*)$/;