my $s = "6/2";
  my($num,$de)= split /\//,$s;