in reply to reg exp on number string

s/,[47]|[47],?//g;

[download]

In Section Seekers of Perl Wisdom