use strict;
use warnings;
use diagnostics;

MAIN: {

        my $i=0;
        my @entry;

        my $path = "/home/jorge/bench/joomla/setting_laguage/jos_content.csv";
        open (FH, '<', $path) or die $!;

        print ("debug1\n");###DEBUG

        while (<FH>){

                print ("debug2\n");###DEBUG line 19

                if (/^"(\d+)";/){

                        print ("debug3\n");###DEBUG line 23
                        $entry[$i] = $1;
                        $i++;

                        while (<FH>){
                                $entry[$i]=$_;
                                $i++;
                                last if (/readmore=/);
                        }

                        select($entry[0]);
                }
        }
        close (FH);
}