trig { $: = CL::unparse_colors(substr($;, 0, 2*length($1)))." \003M---=== при$2 ===----\003H $3"; } '^(\w+) при(шел|летел|шла|летела|бежал|бежала|полз|ползла) (.*)', "n:PK";