Sidra|38|BE
Hira|48|BE
Shagufta|50|BE

##</code><code>##

open(DAT, "text.txt"); 
$data_file=" text.txt ";
open(DAT, $data_file); 
@raw_data=;
close(DAT);
foreach $student (@raw_data)
{
chomp($student);
($name,$roll_no,$class)=split(/\|/,$student);
print "The student $name bearing roll number $roll_no is in class $class";
print "
\n";
}