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

##</code><code>##

<?xml version="1.0" encoding="UTF-8"?>
<studentlist>
<class id="Geography">
<student>
<name>Lexi</name>
<gender>F</gender>
</student> 
<student>
<name>Nelle</name>
<gender>F</gender>
</student> 
<student>
<name>Josh</name>
<gender>M</gender>
</student> 
<student>
<name>Jason</name>
<gender>M</gender>
</student> 
<student>
<name>Ben</name>
<gender>M</gender>
</student> 
<student>
<name>Larry</name>
<gender>M</gender>
</student>
</class> 
<class id="English">
<student>
<name>Caleb</name>
<gender>M</gender>
</student> 
<student>
<name>Emily</name>
<gender>F</gender>
</student> 
<student>
<name>Adelle</name>
<gender>F</gender>
</student> 
<student>
<name>Mike</name>
<gender>M</gender>
</student> 
</class>
</studentlist>

##</code><code>##

imac:~/begperl J$ perl abc.plx
??<?xml version="1.0" encoding="UTF-8"?>
<studentlist>
<class id="Geography">
<student>
<name>Lexi</name>
<gender>F</gender>
</student> 
<student>
<name>Nelle</name>
<gender>F</gender>
</student> 
<student>
<name>Josh</name>
<gender>M</gender>
</student> 
<student>
<name>Jason</name>
<gender>M</gender>
</student> 
<student>
<name>Ben</name>
<gender>M</gender>
</student> 
<student>
<name>Larry</name>
<gender>M</gender>
</student>
</class> 
<class id="English">
<student>
<name>Caleb</name>
<gender>M</gender>
</student> 
<student>
<name>Emily</name>
<gender>F</gender>
</student> 
<student>
<name>Adelle</name>
<gender>F</gender>
</student> 
<student>
<name>Mike</name>
<gender>M</gender>
</student> 
</class>
</studentlist>ALALALALALALALA
imac:~/begperl J$