my $line = 'book|perl|programming'; my @fields = split /\|/, $line;