foreach $line(@saved) { $tmp=s/\|/\=/,$line; @sort=$tmp; } open OUTPUT, ">>ipmiinfo.txt"; print OUTPUT @sort, "\n"; close OUTPUT;