stdNum  stdNam    stdLoc  stdAge  stdGrd
43      gorge     Brazil  28      A
12      John      FL      83      B+
66      Sam       Canada  43      C

##</code><code>##


my $stdInfo="/home/stdInfo";

 print " Enter the number of student that you want to delete\n";
 my $std = <STDIN>;

 open(FILE, "$stdInfo") || die "couldn't open $stdInfo\n";
 open(FILECOPY, ">std") || die "couldn't open std\n";
 while(<FILE>) { chomp; next if ( $_ =~ /^#/ );
 if ($_ =~ /^$std/) {s/$_//;}
 print FILECOPY;
 }
system ( "mv std $stdInfo" );
  close(FILECOPY);
 close(FILE);