open (my $INPUT, '<', 'bodo.txt');
open (my $OUTPUT, '>', 'output.txt');

my %seen;
while (<$INPUT>) {
	my $line = $_;
	$line =~ /\A\D+(\d+)\D+(\d+)/;
	print $OUTPUT $line unless (defined($seen{"$1\t$2"}) and $line ne "\n");
	$seen{"$1\t$2"}++;
}