Revenue of Bitstamp trades

use strict;
use warnings;

## Login your account, 
## export the transactions as csv
## run the script

my $file = './Transactions.csv';
open my $info, $file or die "Could not open $file: $!";

my %account; 

while( my $line = <$info>)  {   
    my @line = split(/\,/, $line);
	if($line[0] eq 'Market'){
		$line[6] =~ s/^([0-9\.]+).*$/$1/;
		$line[9] =~ s/^([a-zA-Z]+).*$/$1/;
		chomp ($line[9]);
		$account{$line[9]} += $line[6];
		chomp $line[9];
	}
}

close $info;
print "-"x30;
print "\n";
printf "Buy:  %0.2f\n", $account{'Buy'};
printf "SELL: %.2f\n", $account{'Sell'};
printf "\nREV:  %.2f\n", ($account{'Sell'} - $account{'Buy'});
print "-"x30;
print "\n";