#!/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