How about something like this:

#!/usr/bin/Perl -w
use strict;

my($str) = 'one|two|three|four|five|six|seven|eight|nine|ten';

my($this,$that,$other) = (split /\|/,$str)[2,7,8];

print "this:$this\nthat:$that\nother:$other\n";
[download]

Hope that helps,
Shendal