$line =~ /^(?=.*fred\s+(\w+))?(?=.*barney\s+(\w+))?(?=.*joe\s+(\w+))?/ ;
$company = join '_', $1, $2, $3, 'inc';