use strict;
use warnings;

use re 'debug';

my $inputA = "X".(" \t" x 10000)."A";
(my $t1 = $inputA) =~ s/[\s\u200c]+A/ A/;
<STDIN>;
(my $t1 = $inputA) =~ s/[\s\u200c]*$/ A/;