#!/usr/bin/perl -p
# $0 <motoring-costs.csv >motoring-costs.gpi
BEGIN{
	$mth=0; map { $mth{$_}= ++$mth; }
		qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
}
	$_="" if m/^\"\s/ .. 0;
	$_="" if m/^\,/;
	$_="" if s/^(\d+),/$1.5,/;
	$_="" if s/^"(\d+) Q([1234])"/ $1 + ($2 - 0.5) * 0.25 /e;
	s,^"(\d+) ([A-Z][a-z]+)", $1 + ($mth{$2}-0.5)/12 ,e;
	s/," ",/,/;
	s/,/\t/g;
	s/^((?:[^\t]*\t){8}).*/$1/;
