#!/usr/bin/perl

use strict;
use warnings;

my $str = ".,a..A,,C..+4ACGTG.,-2TG,,...,a";
$str =~ s/[+-]?\d\w{4}//g;
$str =~ s/[+-]?\d\w+//g;
print $str;

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

my $str = ".,a..A,,C..+4ACGTG.,-2TG,,...,a";
$str =~ s/[+|-](\d*)(\w*)/(substr $2, $1)/ge;
print $str;