Convert CSS non-logical properties to logical properties

cssLogical.pl

#!/usr/bin/perl
while (<>) {
  s/(?<![^;{\s])(margin|padding|border)-top:/$1-block-start:/g;
  s/(?<![^;{\s])(margin|padding|border)-right:/$1-inline-end:/g;
  s/(?<![^;{\s])(margin|padding|border)-bottom:/$1-block-end:/g;
  s/(?<![^;{\s])(margin|padding|border)-left:/$1-inline-start:/g;
  s/(?<![^;{\s])border-top-(color|style|width):/border-block-start-$1:/g;
  s/(?<![^;{\s])border-right-(color|style|width):/border-inline-end-$1:/g;
  s/(?<![^;{\s])border-bottom-(color|style|width):/border-block-end-$1:/g;
  s/(?<![^;{\s])border-left-(color|style|width):/border-inline-start-$1:/g;
  s/(?<![^;{\s])(margin|padding):[ \t]*([^;}\s]+)\s+([^;}\s]+)[ \t]*(?=[;}]|$)/$1-block-start: $2; $1-inline-end: $3; $1-block-end: $2; $1-inline-start: $3/g;
  s/(?<![^;{\s])(margin|padding):[ \t]*([^;}\s]+)\s+([^;}\s]+)\s+([^;}\s]+)[ \t]*(?=[;}]|$)/$1-block-start: $2; $1-inline-end: $3; $1-block-end: $4; $1-inline-start: $3/g;
  s/(?<![^;{\s])(margin|padding):[ \t]*([^;}\s]+)\s+([^;}\s]+)\s+([^;}\s]+)\s+([^;}\s]+)[ \t]*(?=[;}]|$)/$1-block-start: $2; $1-inline-end: $3; $1-block-end: $4; $1-inline-start: $5/g;
  s/(?<![^;{\s])border-(color|style|width):[ \t]*([^;}\s]+)\s+([^;}\s]+)[ \t]*(?=[;}]|$)/border-block-start-$1: $2; border-inline-end-$1: $3; border-block-end-$1: $2; border-inline-start-$1: $3/g;
  s/(?<![^;{\s])border-(color|style|width):[ \t]*([^;}\s]+)\s+([^;}\s]+)\s+([^;}\s]+)[ \t]*(?=[;}]|$)/border-block-start-$1: $2; border-inline-end-$1: $3; border-block-end-$1: $4; border-inline-start-$1: $3/g;
  s/(?<![^;{\s])border-(color|style|width):[ \t]*([^;}\s]+)\s+([^;}\s]+)\s+([^;}\s]+)\s+([^;}\s]+)[ \t]*(?=[;}]|$)/border-block-start-$1: $2; border-inline-end-$1: $3; border-block-end-$1: $4; border-inline-start-$1: $5/g;
  s/(?<![^;{\s])(min-|max-|)width:/$1inline-size:/g;
  s/(?<![^;{\s])(min-|max-|)height:/$1block-size:/g;
  print;
}