#!/usr/bin/perl -n
# your code goes here
use 5.010;
BEGIN {
my $cesta = ":(?<cesta>.*?)";
our $rx= join "|", map {sprintf $_, $cesta} (q{"%s"}, q{\
'%s\'}, q{>%s<}, q{\(%s\)}); say $rx
};
say $+{cesta} while /$rx/g
IyEvdXNyL2Jpbi9wZXJsIC1uCiMgeW91ciBjb2RlIGdvZXMgaGVyZQp1c2UgNS4wMTA7CkJFR0lOIHsKICAgICAgICBteSAkY2VzdGEgPSAiOig/PGNlc3RhPi4qPykiOwogICAgICAgIG91ciAkcng9IGpvaW4gInwiLCBtYXAge3NwcmludGYgJF8sICRjZXN0YX0gKHF7IiVzIn0sIHF7XCclc1wnfSwgcXs+JXM8fSwgcXtcKCVzXCl9KTsKICAgICAgICBzYXkgJHJ4CiAgICB9OwogICAgc2F5ICQre2Nlc3RhfSB3aGlsZSAvJHJ4L2c=
JnF1b3Q7Oi9tb2plL2Nlc3RhLmFiYyZxdW90OwoKJzovbW9qZS9jZXN0YS5hYmMnCgombHQ7dXJsJmd0OzovbW9qZS9jZXN0YS5hYmMmbHQ7L3VybCZndDsKCiZsdDtibGEmZ3Q7Jmx0O2EmZ3Q7Oi9tb2plL2Nlc3RhMS5hYmMmbHQ7YiZndDs6L21vamUvY2VzdGEyLmFiYyZsdDsvYmxhJmd0OwoKbmVjbzogdXJsKDovbW9qZS9jZXN0YS5hYmMpCgomcXVvdDs6L21vamUvY2VzdGEuYWJjJyAvLyBuZWNoY2kgbWF0Y2gKCiZsdDt1cmwmZ3Q7Oi9tb2plL2Nlc3RhLmFiYycgLy8gbmVjaGNpIG1hdGNo
":/moje/cesta.abc"
':/moje/cesta.abc'
<url>:/moje/cesta.abc</url>
<bla><a>:/moje/cesta1.abc<b>:/moje/cesta2.abc</bla>
neco: url(:/moje/cesta.abc)
":/moje/cesta.abc' // nechci match
<url>:/moje/cesta.abc' // nechci match