[Sir]

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