#!perl
use strict;
while (<DATA>){
  chomp;
  my @vals = unpack("A10A10A5A24A10",$_);
  print join "|", @vals,"\n";
  #$sth->execute(@vals);
}

__DATA__
StudentId Name      Dept address                 city
1         Chellappa CSE  22 xx-colony 2nd street coimbatore
2         Vijay     IT   23 yy colony            coimbatore