#!usr/bin/perl
use warnings;
use strict;
open(XMLFILE, "students.xml");
$/ = "</student>";
for (<XMLFILE>){
print $_;
print "ALALALALALALALA\n";
}
close(XMLFILE);