while (<DATA>) {
    chomp;

    my ( $currencies, $amount, $time ) = unpack '@0 A8 @9 A10 @20 A9', $_;

    next unless ( $currencies eq 'EUR/USD' );

    print <<"END_OUTPUT";
Amount: $amount
  Time: $time

END_OUTPUT
}

__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
AUD/JPY ,   65.938 ,13:09:35
EUR/USD ,1.35592   ,13:09:35