perl -E "say 1 if '>:(' ~~ / (:\() | (\>:\() | : /x"