use strict;
use warnings;
use 5.010;

use Encode;

my $str = "ThĀt Āpple";  #'A with circumflex'
say $str;

my $unicode_str = decode('iso-8859-1', $str);

my $pattern = "\x{00C2}"; #unicode for 'A with circumflex'
$unicode_str =~ s/$pattern//g;

my $latin1_str = encode('iso-8859-1', $unicode_str);
say $latin1_str;