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