Perlによるjsonのフィルタリングスクリプト

最近、jsonフィルタリングに接触し、データのタイプに応じてこのスクリプトを書くwebアプリケーションを書いています.サードパーティライブラリを使うつもりでしたが、ネットが速すぎて...

#!/usr/bin/perl

$tmp=<>;

if($tmp=~m#{(.*)}#){
     $list=$1;
     @tmp=split(/,/,$list);
}
@tmp_url= keys %{ {map {$_ => 1} @tmp} };
while(<@tmp_url>){
     if($_=~m#status:(.*)#){
          if($1 != 'Success'){
                last;
          }
     }
     if($_=~m#^\[(.*)#){
          push(@other_url,$1);
     }
     if($_=~m#domainArray:\[\[#){
          @key=split(/\[/,$_);
          push(@other_url,$key[2]);
     }
}
$k=1;
foreach my $t (@other_url){
     
     print "$k:$t
";
     $k++;
}