#!/usr/bin/perl -w
use strict;
use warnings;   

while (my $line=<>)
{
my @part=split(/\t/,$line);
my @saba=split(/\|/,$part[2]);

	for(my $i=0;$i<@saba;++$i)
	{
	if ($saba[$i]!~m/unclassified/)
		{(if $i==$saba){print "$_\n";}
		  else {print "$_|";}
		}
	else
		{if ($i==$saba){print "unclassified_$saba[$i-1]\n";}
		 else {print "unclassified_$saba[$i-1]|";}
		}
	}

}

##</code><code>##

syntax error at ./claskri.pl line 13, near "(if"
Global symbol "$saba" requires explicit package name at ./claskri.pl line 13.
syntax error at ./claskri.pl line 16, near "else"
Global symbol "$i" requires explicit package name at ./claskri.pl line 17.
Global symbol "$saba" requires explicit package name at ./claskri.pl line 17.
syntax error at ./claskri.pl line 18, near "else"
Execution of ./claskri.pl aborted due to compilation errors.