Translation to Perl:

perl -lne 'print$1if/(-?\d(?:\.\d+)?)/' < data > munged
[download]

Update: I posted this before Fletch updated his node.