Help for this page
>perl -wMstrict -le "my @records = ( ... '1|1212|34353|56575|||||4|~somedata~10.10.10.10.12~3333~~a~~~~' '1|1212|34353|56575|||||4|10.10.10.10.12|3333'