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