use LWP;
 
my $browser = LWP::UserAgent->new();
 
@links = grep {
     my $response = $browser->head($_);
     $response->content_type =~ m[^text/(html|plain)$]} @links;
 
foreach (@links) {
  print "$_\n";
} 


##</code><code>##

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/