sub get_text{                                
  my @text=(<>);                               
  my $line =0;                                 
  foreach $line (@text) {