$ ./test < textfile | sort | uniq

##</code><code>##

open(IN,"<$file") or die "Cannot read $file: $!\n"; my @content = <IN>; close(IN);
close(IN);