#!/usr/bin/perl 
use strict; 
use warnings; 
 
my $line = 'Bond, James Bond|007|Secret agent|Walther PPK|etc|etc|etc'; 
my @fields = split /\|/, $line; 
my $occupation = $fields[2]; 
print "$occupation man\n"; 
exit;