Select Code to Download

#!/usr/bin/perl
                                                                      
+          
...
                                                                      
+          
                                                                      
+          
$parser->parse($the_file);

#!/usr/bin/perl
 
...
    push @{$self->{_private}->{text}}, $text;
}