#!/usr/bin/perl

while(<>) {
	@data = split /\t/;

	print "$data[11]\t";	# name
	print "$data[41]\t";	# id
	print "$data[38]\n";	# Internet Password HASH	
}