use strict; use warnings; use 5.012; my $string = <
  • END_OF_HTML my $regex = qr{[^<]+}; while ($string =~ /$regex/g) { say $1; } --output:-- ../../../KeyboardKeys/RetainerClip/Acer/Aspire/1400 ../../../KeyboardKeys/RetainerClip/Acer/Aspire/1410