Нужен простенький скрипт на Perl

[SladerNon]

Чтоб он из списка сайтов выхватывал тока те, которые встречаются в списке 1 или 2 раза тока, например :

http://www.ez-porno.com
http://www.ezpornsex.com
http://www.ezpornsex.com
http://www.ezpornsex.com
http://www.ezpornsex.com
http://www.ezpornsex.com
http://www.ezpornsex.com
http://www.ez-powercart.com
http://www.ez-powercart.com
http://www.ez-powercart.com
http://www.ez-powercart.com
http://www.ez-powercart.com
http://www.ez-powercart.com
http://www.ez-powercart.com
http://www.ez-powercart.com
http://www.ez-powercart.com
http://www.ezxx.net
http://www.ezxx.net

надо в данном примере, чтоб скрипт отдельно нам отсеял тока :
http://www.ez-porno.com
http://www.ezxx.net
http://www.ezxx.net

[SladerNon]

Кто у нас дружит с Перлом? =). Прошу откликнуться =)

[nerezus]

#!/usr/bin/perl
use strict;
my %h;
open F, "input.txt";
while (my $line=<F> ) {
$line =~s/\s//;
chomp $line;
$h{$line}++;
}
close F;
while ((my $key, my $value)=each(%h)) {
print $key."\n" if ($value==1);
print $key."\n".$key."\n" if ($value==2);
}

[Майор]

php :

<?
$url=file('url.txt');
for($i=0;$i<count($url);$i++){
for($j=0;$j<count($url);$j++)
if(!strcasecmp($url[$i],$url[$j]))
$k++;
if($k<=2)
echo "$url[$i]";}
?>

[SladerNon]

Башое спасибо! =)

[nerezus]

2Майор: твой не работает =)
1 строку выдает

[KEZ]

SladerNON, ты же крутой хакер ;)