#!/usr/bin/perl
$fac = shift;
while (<>) {
    s/(stroke-width:)([\.0-9]+)/$1.$fac*$2/eog;
    print $_;
}
