>perl -wMstrict -le
"my @records = (
 '1|1212|34353|56575|||||4|~some~~pi=[10.10.10.10.10],uid=[11]}~',
 '1|1212|34353|56575|||||4|~som~~390=10.10.10.10.11,391=222,394~',
 '1|1212|34353|56575|||||4|~somedata~10.10.10.10.12~3333~~a~~~~',
 );
 ;;
 my $rx_oct   = qr{ \d{1,3} }xms;
 my $rx_quint = qr{ $rx_oct (?: \. $rx_oct){4} }xms;
 ;;
 my $rx_dotted = qr{ (?<! \d) $rx_quint (?! \d) }xms;
 my $rx_int    = qr{ \d+ }xms;
 ;;
 for my $record (@records) {
   print qq{'$record'};
   my ($const, $var) = $record =~ m{ ( \A .+) \| ( .* \z) }xms;
   my (undef, $dotted, $int) =
     $var =~ m{ (\D) ($rx_dotted) .*? \1 ($rx_int) }xms;
   my $new_record = join '|', $const, $dotted, $int;
   print qq{'$new_record' \n};
   }
"
'1|1212|34353|56575|||||4|~some~~pi=[10.10.10.10.10],uid=[11]}~'
'1|1212|34353|56575|||||4|10.10.10.10.10|11'

'1|1212|34353|56575|||||4|~som~~390=10.10.10.10.11,391=222,394~'
'1|1212|34353|56575|||||4|10.10.10.10.11|222'

'1|1212|34353|56575|||||4|~somedata~10.10.10.10.12~3333~~a~~~~'
'1|1212|34353|56575|||||4|10.10.10.10.12|3333'