Hardly anything to do with a parsing error but I suggest using

foreach (@lines)
{ #chomp;
  tr/\r\n//d;
  #like miyagawa suggested
  print OUTFILE $frontfill,$_,$backfill,"\n";
}
[download]

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.