my ($file, $ext) = $string =~ /(.*)\.(.*)/;