#!/usr/bin/perl -W

use strict;
use warnings 'FATAL';
use diagnostics;
use utf8;
use 5.008_008;

my $s1;
my $s2;


$s1 = 'This is B & B and T & D.';

$s1 =~ s/\\\$//g;

printf("%s\n", $s1);

$s2 = 'This is B & B and T & D.';

$s2 =~ s/\x24//g;

printf("%s\n", $s2);


1;