in reply to Grabbing anything between pipe delimiters
$s = "Johnathan Company| 2.33 |-2.5|Jeremiah|-5"; @a = split /\|/, $s; # Use $a[0], etc. [download]