while(<DATA>){
    my $date;
    $date = $1 if s/(\d+\.\d+\.\d+)\s*//;
    my $ccy;
    $ccy  = $1 if s/([a-z]+)\s*//i;
    print "Date=$date, Currency=$ccy, Rest=$_\n" if $date && $ccy;
}