px2em.pl

#! /usr/bin/perl

while (<>) {

  while (/([-.\d]+)(\s*)px/) { 
    $em = $1/16.0;
    $val = $1;
    $s = $2;
    s/$val\s*px/${em}em/;
  }
    print;
}