$video =~ s/
   (<iframe
   [ ]title="YouTube[ ]video[ ]player"
   [ ]width=")([0-9]+)("
   [ ]height=")([0-9]+)("
   )
/
   $1 . "320" . $3 . ( (320/$2)*$4 ) . $5
/xeg;