#!/usr/bin/perl -w
use strict;

$/=undef;                # undefines the record separator
                         # which is by default \n
                         # this means that there is no "line"
                         # separator
                         
my $bigString = <DATA>;  # would normally read one "line"
                         # but since record separator is undefined
                         # it reads all the data as a single string
                         # this is what "slurp" the file means
                         
my @prices = $bigString =~ m|<homePrice>\s*(.+?)\s*</homePrice>|ig;

print "@prices"; # prints: 1.91 295.3 KEuro

__DATA__
<homePrice>
1.91</homePrice>
<balh></balh><homePrice>295.3 KEuro</homePrice>