#!/usr/bin/perl

use strict;
use warnings;
use List::MoreUtils 'first_index';
use Text::CSV;
use utf8;


sub breakup {
    my $filename = $_[0];
    my $text = $_[1];
	if ($text =~ /\;(?=(\s[A-Z]{1}[a-z]+,\s([a-zA-z]\.-?)+\,))/) {
		my @parts = split (/\;(?=(\s[A-Z]{1}[a-z]+,\s([a-zA-z]\.-?)+\,))/,$text);
		foreach (@parts) {
			print $_ . "\n";
		}
	}
}

breakup("scopus0842","(1990) Methods of the Association of Official Analytical Chemists. 15. Ed, , Association of Official Analytical Chemists Washington; Dumet, D., Benson, E.E., The use of physical and biochemical studies to elucidate and reduce cryopreservation-induced damage in hydrated/desiccated plant germplasm (2000) Cryopreservation of Tropical Plant Germplasm: Current Research Progress and Application, pp. 43-56. , F. Engelmann and H. Takagi (eds.) Tsukuba: JIRCAS; Rome: IPGRI; Ferreira, D.F., Análises estatísticas por meio do SISVAR para Windows versão 4.0.1:225 (2000) Reunião Anual da Região Brasileira da Sociedade Internacional de Biometria, , São Carlos, SP: UFSCAR");