perl -MYAML::XS -E 'my $y=YAML::XS::Load(q{---\nNODE:\n  match: !!perl/regexp (?i-xsm:OK\ Server\ Connection\ 1\.001)}); for(1..20) { $y=Load(Dump($y)) }; say Dump($y)'