my ($extension) = $string =~ /[.]([^.]*)$/;