$delimiter = '|';
$delimiter = quotemeta $delimiter;
@list = split /$delimiter/ , $line;