Miscellany

sub fractions{
	my $stringToConvert = shift;
	if($stringToConvert =~ /\d+\s\d\/\d/){
		chomp($stringToConvert);
		my @numberParts = split($stringToConvert, /\s/);
		chomp(@numberParts[0],@numberParts[1]);
		my $fract = fractions(@numberParts[0]) + fractions(@numberParts[1]);
		return $number;
	}
	
	if($stringToConvert =~ /\d\/\d/){
		chomp($stringToConvert);
		my @nums = split(/\//,$stringToConvert);
		return @nums[0]/@nums[1];
	}
	
	
	if($stringToConvert =~ /\d+/){
		chomp($stringToConvert);
		return $stringToConvert;
	}
	
	
	
}