my @data = split /\|/, $string;