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