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”;
	}
}