Sommer deux fraction et le resultat fraction

(en perl)
$bob = "1/2";
$tom = "5/4";

print "1/2 + 5/4\n"; 

$bob =~ /(\d*)\/(\d*)/;
$bob1 = $1;
$bob2 = $2;

$tom =~ /(\d*)\/(\d*)/;
$tom1 = $1;
$tom2 = $2;

$boto1 = $bob1 + $tom1;
$boto2 = $bob2 + $tom2;

print "le resultat est $boto1/$boto2";

$bob = "1/2";
$tom = "5/4";

print "1/2 + 5/4\n"; 

($bob1, $bob2) = &addition($bob);
($tom1, $tom2) = &addition($tom);

$boto1 = $bob1 + $tom1;
$boto2 = $bob2 + $tom2;

sub addition{
	$_[0] =~ /(\d*)\/(\d*)/;
	$toto1 = $1;
	$toto2 = $2;
	return ($toto1, $toto2)
}

print "le resultat est $boto1/$boto2";