$num = "6/2";
# like this
$num =~ s:^(\d+)/(\d+)\z:$1/$2:e;
# or
my ($n,$d) = split "/", $num;
$num = $n/$d;
# or (unsafe for untrusted input)
$num = eval $num;