Select Code to Download

#!/usr/bin/env perl
use Modern::Perl;
...
my $str = ".,a..A,,C..+4ACGTG.,-2TG,,...,a";
$str =~ s/[+-](\d+)(\w+)/substr $2, $1/ge;
say $str;