You don't really need a regular expression just to get the last character in a string:

$ 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";
[download]