my $re = qr{
    ^(.*?)
    (
      (=<)
      |
      [<=>]
    )
    (.*)
}x;