$ perl -Mstrict -Mwarnings -E '
my $x = "abc";
say $x if index($x, "a") == 2;
my $y = "cba";
say $y if index($y, "a") == 2;
'
cba