use strict; use warnings; use Data::Dumper; my $string = 'xxx'; my @array1 = $string =~ m/(<[^>]*test[^>]*>)/g; print Dumper(\@array1); __END__ $VAR1 = [ '', '', '', '', '' ];