#!/usr/local/bin/perl
use strict;
use warnings;
use LWP::Simple;
open (IN, "</home/nerone/Desktop/lig/1xmj.pl") || die "impossibile aprire il file";

my ( @hydrophobic , @residue );

while ( my $r = <DATA> )
{
  if ( $r=~ m/Hydrophnam_size Center/ .. $r =~ /Hydrophnam_size/ )
  {
    push @hydrophobic , $r;
    next;
  }

  if( $r=~ m/Nligresnam_size Center/ .. $r =~ /Nligresnam_size/)
  {
    push @residue , $r;
  }
}

printf "legami idrofobici: %s\n" , join '' , @hydrophobic;

printf "legami idrogeno: %s\n" , join '' , @residue;

__DATA__