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

##</code><code>##

  my $s = "6/2";
  4 + eval($s); # 7