#!/usr/bin/perl

use strict;

while( <DATA> ) {
    my ($currency_a, $currency_b, $bogus, $val_a, $time) =
      $_ =~ /(\w+)\/(\w+)\s?,(\s?|\s+?)(\d+\.?\d+?)\s+?,\s?(.*)/;
    print "$currency_a, $currency_b, $val_a, $time\n";
}
__DATA__
EUR/USD ,1.35590   ,13:09:31
EUR/JPY , 129.872  ,13:09:29
GBP/JPY , 138.009  ,13:09:32
AUD/JPY ,   65.939 ,13:09:30
EUR/USD ,1.35592   ,13:09:35
EUR/JPY , 129.866  ,13:09:35
GBP/JPY , 137.999  ,13:09:35