Deleting / Replacing Data

[biobrain]

I have a data similar to this in my multiple files.

Here in column 5 we can see either V or W . I wish to delete this column only and only if it contain any alpha bate like X, V, Z, A, B, C etc. In case column 5 contain digits i do not want to delete it.

I had tried a code I am pasting here,

#open the directory and than read all the files with *.as.h20

opendir(DIR,"/home/shafiq/Desktop/water") or die "$!";
my @all_h20_files  = grep {/\.as.h2o$/} readdir DIR;
close DIR;


#reterive desired data from the file 
foreach (@all_h20_files){

open (WATER, "$_");

#print $_;

while (<WATER>){

if (/HETATM\s+\S+\s+\S+\s+\S+\s+(\D)/) 
   {
   $_= ~s/HETATM\s+\S+\s+\S+\s+\S+\s+\D/HETATM\s+\S+\s+\S+\s+\S+\s+/m;
   $test2=$_;
   print("$test2");
   }

}

}

HETATM 6922 O HOH V 8 75.075 11.019 46.777 1.00 55.38 O
HETATM 6923 O HOH V 9 92.576 14.755 40.693 1.00 53.69 O
HETATM 6924 O HOH V 10 76.329 4.725 28.464 1.00 64.02 O
HETATM 6925 O HOH V 11 70.195 -4.615 41.328 1.00 56.96 O
HETATM 6926 O HOH W 1 42.986 40.276 19.229 1.00 47.03 O
HETATM 6927 O HOH W 2 22.119 43.798 32.992 1.00 53.89 O
HETATM 6928 O HOH W 3 18.195 38.122 0.661 1.00 49.52 O
HETATM 6929 O HOH W 4 14.981 46.698 7.003 1.00 29.06 O
HETATM 6930 O HOH W 5 6.666 30.037 16.004 1.00 60.70 O

 

[MillerH]

Simply going by your regular expression gives us this:

[url=http://perldoc.perl.org/functions/use.html][black][b]use[/b][/black][/url] [green]File::Spec::Functions[/green] [red]qw([/red][purple]catfile[/purple][red])[/red][red];[/red]

[black][b]use[/b][/black] [green]strict[/green][red];[/red]
[black][b]use[/b][/black] [green]warnings[/green][red];[/red]

[url=http://perldoc.perl.org/functions/my.html][black][b]my[/b][/black][/url] [blue]$dir[/blue] = [red]"[/red][purple]/home/shafiq/Desktop/water[/purple][red]"[/red][red];[/red]

[url=http://perldoc.perl.org/functions/opendir.html][black][b]opendir[/b][/black][/url][red]([/red]DIR, [blue]$dir[/blue][red])[/red] or [url=http://perldoc.perl.org/functions/die.html][black][b]die[/b][/black][/url] [red]"[/red][purple]Can't open [blue]$dir[/blue]: [blue]$![/blue][/purple][red]"[/red][red];[/red]
[olive][b]while[/b][/olive] [red]([/red]<DIR>[red])[/red] [red]{[/red]
	[olive][b]next[/b][/olive] [olive][b]unless[/b][/olive] [red]/[/red][purple][purple][b]\.[/b][/purple]as.h2o$[/purple][red]/[/red][red];[/red]
	
	[black][b]my[/b][/black] [blue]$fqfn[/blue] = [maroon]catfile[/maroon][red]([/red][blue]$dir[/blue], [blue]$_[/blue][red])[/red][red];[/red]

	[url=http://perldoc.perl.org/functions/local.html][black][b]local[/b][/black][/url] [blue]@ARGV[/blue] = [red]([/red][blue]$fqfn[/blue][red])[/red][red];[/red]
	[black][b]local[/b][/black] [blue]$^I[/blue] = [red]'[/red][purple].bac[/purple][red]'[/red][red];[/red]

	[olive][b]while[/b][/olive] [red]([/red]<>[red])[/red] [red]{[/red]
		[red]s{[/red][purple]HETATM[purple][b]\s[/b][/purple]+[purple][b]\S[/b][/purple]+[purple][b]\s[/b][/purple]+[purple][b]\S[/b][/purple]+[purple][b]\s[/b][/purple]+[purple][b]\S[/b][/purple]+[purple][b]\s[/b][/purple]+[purple][b]\D[/b][/purple][/purple][red]}[/red][red]{[/red][purple]HETATM[purple][b]\s[/b][/purple]+[purple][b]\S[/b][/purple]+[purple][b]\s[/b][/purple]+[purple][b]\S[/b][/purple]+[purple][b]\s[/b][/purple]+[purple][b]\S[/b][/purple]+[purple][b]\s[/b][/purple]+[/purple][red]}[/red][red]m;[/red][purple][/purple]
[purple]		print[/purple][red];[/red]
	[red]}[/red]
[red]}[/red]

[tt]------------------------------------------------------------
Pragmas (perl 5.10.0) used :
[ul]
[li]strict - Perl pragma to restrict unsafe constructs[/li]
[li]warnings - Perl pragma to control optional warnings[/li]
[/ul]
Core (perl 5.10.0) Modules used :
[ul]
[li]File::Spec::Functions - portably perform operations on file names[/li]
[/ul]
[/tt]

- Miller