my %replacement;

$replacement{'\$34\.50'} = '$17.25';
# ... key is match, value is replacement

for my $item ( keys %replacement ) {
    s/$item/$replacement{$item}/g;
}