$fractionString =~ s{(\d+)/([1-9]\d*)}{$1/$2}e;