$ perl -e'use Data::Dumper; $Data::Dumper::Useqq = 1; my $text_1 = "a\nb\nc\n"; print Dumper $text_1, "Last character: " . substr $text_1, -1'
$VAR1 = "a\nb\nc\n";
$VAR2 = "Last character: \n";