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

my @keys = qw(F29-2 F29-3 F29-4 F44-2 F53-2 F38-3 F12-2);
my @vals = qw(F29B2 F29B3 F29B4 F44B2 F53B2 F38B3 F12B2);
my %replace;
@replace{@keys} = @vals;


while (my $line = <>) {
    if($line =~ m/^\>/){my $name=$line;$name =~ s/(F29-2,F29-3,F29-4,F44-2,F53-2,F38-3,F12-2)/$replace{$1}/;print $name;}   
    elsif ($line!~m/^\>/){print $line;}
  }