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