in reply to Unpack or substr to create CSV?

$ perl -MText::CSV_XS=csv -we'csv (in => sub {[ unpack "AA15A14A*", <>
+ // exit ]})' < test.txt
C,4432882490H0190,00020150211ESL,"6690 0H2015PC"
C,4833076550HC0P0,000201412093J4,"6651 0H2015DX"
C,6033106980H0571,30020150323FRE,"7602 0H2015PC"
C,663160140MT0070,15G20141124274,"847A MT2015PC"

[download]

Enjoy, Have FUN! H.Merijn

In Section Seekers of Perl Wisdom