($string) =~ s%(?<=\d)(\s+)(?=\d)%/%g;