my ($var1,$var2) = $string =~ m/(.*)\/(.*?)$/;