Help for this page

Select Code to Download

Select or download this

use Data::Dumper;
sub Take_Txt{
...
    shift(@lineas);
    return @lineas;
}