use strict;
use warnings;
use Regexp::Common;

$_ = '<span class="style">28.56</span><span class="style">-1.22</span>' .
     '<span class="style">-4.1</span><span class="style">04/02</span>';

my ($f, $s) = /($RE{num}{decimal}).*?($RE{num}{decimal})/;

print "$f&nbsp;&nbsp;$s\n";
__END__
28.56&nbsp;&nbsp;-1.22