e kak shte raboti?
ti koga si vijdal neshto napisano na Perl da raboti?
toi ne e napraven s takiva visshi celi
osobeno za middleware,DBfont-end,SA,CGI,data munging,
regexs,OOP,(kakvo li propuskam!?) - vse ne raboti nishto

#~
$_->[/^(?>(.)?(.)+.*)(?!\1)(??{print(($1..$2)[9,0,15,7])})/]
#~