Question

I have the following string.
In reality the size can be varied.

my $string = "ACCAGGGGGGCCTCCGCAG*AAGCGGTCGCCATAGTCAAAC";

What I want to do is to extract 10 characters to the left and right of a * marker,
resulting in :

  my $output = "GCCTCCGCAG*AAGCGGTCGC";

is there a compact way to do it in Perl?

Answer 1

There you go, a non regex solution:

my $string = "ACCAGGGGGGCCTCCGCAG*AAGCGGTCGCCATAGTCAAAC";
my $marker = '*';
my $offset_from_marker = 10;
my length = 21;
my $output = substr($string, index($string, $marker) - offset_from_marker, $length);