( $fDate, $fType, $fDetails, $fRef, $fCurrency,
$fAmount, $fPaidOut, $fFees, $fTax )
= split( /,/, $line );
####
11/21/2022,Payment,"Transfer to Smith, account 2",,USD,,123.60,,,
####
$fDetails = "Transfer to Smith
$fRef = Savings account"
####
$line =
'11/21/2022,Payment,"Transfer to Smith, account 2",,USD,,123.60,';
print " $line\n";
( $fDate, $fType, $fDetails, $fRef, $fCurrency,
$fAmount, $fPaidOut, $fFees )
= split( /,/, $line );
printf("\n Date: %s; Type: %s; \n"
." Details: %s\n Reference: %s\n"
." Currency: %s; Amount: %s; PaidOut: %s; Fees: %s;\n",
$fDate, $fType, $fDetails,
$fRef, $fCurrency, $fAmount, $fPaidOut, $fFees );