#!/usr/bin/perl

$var = "21|23|24~34|45|56~";

my @arr = split("",$var);

$sep = $arr[2];
$ele = $arr[8];

my @arr = split($ele,$var);