Hir@

You should always (yes, always) check the return value of open(), like this:

open(DAT,"myfile.txt") or die $!;

#!/usr/bin/perl

use strict;

use warnings;

open(DAT, "text.txt");

my @raw_data= ;

close(DAT);

for my $student (@raw_data)

{

    chomp($student);

    my ($name, $roll_no, $class) = split(/\|/,$student);

    print "The student $name bearing roll number $roll_no is in class $class\n";

}

I think fixes your version. But learning the good modules on cpan is a great idea

http://search.cpan.org/perldoc?File::Slurp

and more generally

http://maddingue.free.fr/conferences/fpw-2009/best-of-cpan/

or for the google translated version

http://translate.google.com/translate?js=y&prev=_t&hl=en&ie=UTF-8&layout=1&eotf=1&u=http%3A%2F%2Fmaddingue.free.fr%2Fconferences%2Ffpw-2009%2Fbest-of-cpan%2F&sl=fr&tl=en

Which can get you to:

#!/usr/bin/perl

use strict;    

use warnings;  

use File::Slurp qw;

for my $student (slurp 'text.txt')

{

    chomp $student;

    my ($name, $roll_no, $class) = split(/\|/,$student);

    print "The student $name bearing roll number $roll_no is in class $class\n";

}

"Learning Perl" would also be a good read http://oreilly.com/catalog/9780596520113/

This code does the same thing as yours.

use strict;
use warnings;

my $filename = 'test.txt';

open my $in, '<', $filename

    or die "Can't open $filename: $!";

while (<$in>) {

    chomp;

    my ($name, $roll_no, $class) = split /\|/;

    print "The student $name bearing roll number $roll_no is in class $class\n";

}

As an aside, this is a weblog site, not a Perl help forum. If you are looking for help, you are more likely to find more of it faster by posting your questions on http://perlmonks.org/.