Re,

et même
#! /usr/bin/perl

use warnings;

while (<DATA>){
s/(.{4})(.{5})(.)/$1\t$2\t$3\t/g;
print;
}


__END__
1,0522,01Y1,0522,01Y1,0522,01Y1,0522,01Y1,0522,01Y3,9999,77A0
1,0522,01Y1,0522,01Y1,0522,01Y1,0522,01Y1,0522,01Yaaa
2,0522,01Z2,0522,01Z2,0522,01Z2,0522,01Z2,0522,01Z

Resultat [lamitest@localhost corbeille]$ perl ccm_vi_2.pl
1,05 22,01 Y 1,05 22,01 Y 1,05 22,01 Y 1,05 22,01 Y 1,05 22,01 Y 3,99 99,77 A 0
1,05 22,01 Y 1,05 22,01 Y 1,05 22,01 Y 1,05 22,01 Y 1,05 22,01 Y aaa
2,05 22,01 Z 2,05 22,01 Z 2,05 22,01 Z 2,05 22,01 Z 2,05 22,01 Z

[lamitest@localhost corbeille]$