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

open (FILE, $ARGV[0]) or die $!;
my @array = map {[split " "]} <FILE>;
close FILE or die $!;

for (0..$#array) {
    $array[$_][8] =~ s/%//g;
}