Clean up your code so it actually compiles with strictures.

1. The first line is missing a # at the very start
2. "Pacakge" is not spelt corectly and must be all lower case.
3. my $in = ... and my $out = ... don't compile and don't make sense.
4. if ($in =~ /+\/),$text[6]){ doesn't compile and doesn't make sense
5. }and{ doesn't compile and doesn't make sense
6. if ($in=~ / withdrawn /),$text[5]{ doesn't compile and doesn't make sense

then provide some sample data and expected output. See I know what I mean. Why don't you?.