#!/usr/bin/perl

use strict;
use warnings;

my $header = <DATA>;
my @p;
push @p, length $1 while $header =~ /(\S+\s*)/g;
my $unpack_pattern = join "", map { 'A'.$_ } @p[0..$#p-1];
$unpack_pattern .= "A*";

while (<DATA>){
  chomp;
  my @vals = unpack($unpack_pattern,$_);
  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