my $data = "this is a character array";
my($str) = $data =~ /(char.{2}ter)/;