while(<FILE>){
#line is in $_
}

##</code><code>##

while(<FILE>){
chomp;
my @columns=split /\t/;
$columns[0]=~tr/%//d; # When you want to get rid of single characters tr/// should be better than s///
#do what ever you want with @columns..
}