0211121253 Mike Dell ID06533
0211121253 Chris Jones ID02014
0211121253 Pa Kettle ID65255
0111119112 Mitch Poo ID05983


##</code><code>##

|0211121253|Mike|Dell|ID06533|
|0211121253|Chris|Jones|ID02014|
|0211121253|Pa|Kettle|ID65255|
|0111119112|Mitch|Poo|ID05983|


##</code><code>##

$sth->execute;
	open (OUTFILE, "> file.txt")
		or die "Cant open dat file : $!";
	while (@row = $sth->fetchrow_array) {
        $_ =~ s/\s/\|/g;
        print OUTFILE "@row\n";
	}
	
close OUTFILE;