local $/ = \280 if ($decode !~ /csv/); $printout = ""; if ($outfile) { open (OUTDATA, ">$outfile"); $printout = 1; } if ($fname && (defined($decode) || defined($encode))) { open (DATA, "$fname"); while (my $data = ) { chomp($data); if (defined($decode) && $decode =~ /csv/) { csvout($data); } elsif (defined($decode) && $decode !~ /csv/) { $data =~ s/\n//g; print "$data"; # ..Problem is here.. #decode($data); } elsif (defined($encode) && $encode =~ /csv/) { csv_encode($data); } elsif (defined($encode) && $encode !~ /csv/) { std_encode($data); } } close (DATA); } else { usage();