while (<DATA>) {
   my @parts = unpack('A5 A7 A5 A3 A5 A9 A2 A4 A2 A5 A5 A*', $_);
   print(join('|', @parts), "\n");
}

__DATA__
0601 3      NORM 2  ALLO XLF753         U 0045 0050      
0603 5      NORM 2  ALLO ADR2CG           0430 0438      
0604 6      NORM 2  ALLO AF681VC  i     U 0500 0510  
0605 7      NORM 2  ALLO AF651PQ  i       0515 0523 
0606 8      NORM 2  ALLO AF713BR  i       0445 0453 
0607 9      NORM 2  ALLO AFR100M  i       0520 0533 
0609 11     NORM 2  ALLO GJT775   i E     2300 2315      
0610 12     NORM 2  ALLO AF661WN  i       0450 0500 0500

##</code><code>##

0601|3|NORM|2|ALLO|XLF753|||U|0045|0050|
0603|5|NORM|2|ALLO|ADR2CG||||0430|0438|
0604|6|NORM|2|ALLO|AF681VC|i||U|0500|0510|
0605|7|NORM|2|ALLO|AF651PQ|i|||0515|0523|
0606|8|NORM|2|ALLO|AF713BR|i|||0445|0453|
0607|9|NORM|2|ALLO|AFR100M|i|||0520|0533|
0609|11|NORM|2|ALLO|GJT775|i|E||2300|2315|
0610|12|NORM|2|ALLO|AF661WN|i|||0450|0500|0500