如何在Perl中的两个符号之间插入单词？

Question

I need to grep the word between the symbols as shown below in an array.

my $string = "?hi how r u?what is your name?what is your age?";

It's to be converted to array where array should be like:

my $array[0]="hi how r u";
my $array[1]="what is your name";
my $array[2]="what is your age";

Answer 1

To ignore empty results you can match the input with regex and store matched results in an array:

use strict;
use warnings;

my $string = "?hi how r u?what is your name?what is your age?";
my @matches = ( $string =~ /(?<=\?)[^?]+/g );

foreach my $i (@matches) {
   print $i . "\n";
}

Output:

hi how r u
what is your name
what is your age

Answer 2

You can use the split function, however you have to escape the ? character, so that it won't get special treatment as part of a regular expression control character.

 my @array = split '\\?', $string;