__DATA__

	Hello all!  Today I bought breakfast for 02.50 and lunch for 10.20  Dinner was a real splurge at 21.00.

__END__

##</code><code>##

__DATA__
	Hello all!  Today I bought breakfast for 00.32 and lunch for 01.30.  Dinner was a real splurge at 02.67.

__END__

##</code><code>##

 
my $string = <>;
my $word;


###
# I need help fixing this split function so that I can match the strings below but 
# still keep the formatting from the original text.
###

my @array = split(/*regex help needed here!*/, $string);

while(@array){
$word = shift(@array);
if($word = ~ /[0-9][0-9][.][0-9][0-9]/)){


###
#I have figured out the math to do the currency conversion
###

print “$word”;
}
else{
print “$word”;
	}
}