1
2
3
4
$/ The input record separator, newline by default. This influences
[...]
Remember: the value of $/ is a string, not a regex. awk has to be
better for something. :-)
1 2 3
use Data::Dumper; $_=q(hallo</ende>blubb</foo>); print Dumper [split m#</.*?>#]
print Dumper [split m#(</.*?>)#]
print Dumper [split m#(?<=</.*?>)#]
1 2 3
my $a = 'hallo</ende>blubb</foo>'; my @b = $a =~ /.*?<\/.*?>/g; print join(',', @b);