#!usr/bin/perl
use strict;
use warnings;
my $input_file="filetag1.csv";
open my $FILE1, "<", $input_file or die "Cannot open $input_file .$!";
my $output_file="file1tagmod.csv";

open my $FILE2, ">", $output_file or die "Cannot open $output_file .$!";

while (my $line=<$FILE1>){
    chomp $line;
    my($header,$tag,$freq)=split(' ', $line);
   $header=~ tr/>/@/d;
         
    print $FILE2 "$header\t$tag\t$freq\n";
	
}