while(defined($index = <$inp_file>))
	{
		if (($index =~ m"Record#") && ((keys %$hash_ref) != 0))
		{
			return ($hash_ref);
		}
		next if ($index =~ m"Record#");
		$index =~ m"(.*?): (.*)";

		my $key = $1;
		my $val = $2;

	#1	$key =~ s"^\s+""g;
	#2	$key =~ s"\s+$""g;
	#3	$val =~ s"^\s+""g;
	#4	$val =~ s"\s+$""g;

		$hash_ref->{$key} = $val;
	}