oneman · December 20, 2015 14:09
diff --git a/em2rel.pl b/em2rel.pl
 #! /usr/bin/perl

 while (<>) {
  while (/([-.\d]+)(\s*)em/) {
    $rel = $1 * 16;
    $val = $1;
    $s = $2;
    s/$val\s*em/${rel}%/;
  }
  print;
 }
	#! /usr/bin/perl

	while (<>) {
	while (/([-.\d]+)(\s*)em/) {
	$rel = $1 * 16;
	$val = $1;
	$s = $2;
	s/$val\s*em/${rel}%/;
	}
	print;
	}