if (/GAA\d{8}4VD\d{6}/i){
($jnk,$acctid,$cusip,$jnk2,$symbol,$jnk3,$trantype,$buysell,$jnk4,$tradedate,$settledate,$timeformat,$src,$pershingref,$batchcode,$oppacct,$mktcode,$blottercode,$cancelcode,$corrcode,$mktlimit,$jnk5,$quantity,$qsign,$price,$jnk6,$prcsign,$pricecurrency, $netamt, $principal,$interest, $comm) =
unpack ($_, "A11A10A9A17A16A6A1A1A18A8A8A7A2A6A6A10A1A1A1A1A1A4A18A1A18A5A1A3A19A19A19A19");

##</code><code>##

GAA000000144VD0000011G76893111    G76893111    RBSPF           000   TS      03002004071320040713200407160154628  #45678*GLOS 4VD000001145       000000001000000000-000000015610000000     +USD000000000200001400-000000000200001400-000000000000000000 000000000000000000 000000000000000000 000000000000000000 000000000000000000 000000000000000000 000000000000000000 000000000000000000 000000000000000000 000000000000000000 000000000000000000 000000000000000000 000000000000000000 0000000000000000000 000000000000000000000000000000000000 000000000000000000             10                               000000000000000000   000000023640000000+                                                                                                                X

##</code><code>##

if(/GAA\d{8}4VD\d{6}/i){
 ($jnk) = unpack ($_, "a11");}