21997|||70049,,20170428154818,20170527235959|||
21997|||70070,,20170428154739,20170527235959|||
21998|||70049,,20170428154818,20170527235959|||
21998|||70070,,20170428154739,20170527235959|||
21998|||70071,,20170428154739,20170527235959|||

perl -an '-F/\|\|\|/' -e 'm/\d/ or do{print qq<$k|||$v|||\n> ;$k=$v="";next};$k=$F[0];$v.=$F[1].qq|;|' teste.txt </p>

Not Result for this command. My perl version is:

perl -v

This is perl, v5.10.1 (*) built for x86_64-linux-thread-multi