Извлечь последние K символов из строки в Perl

Question

У меня есть строка, которая выглядит следующим образом

my $str1 = "ACGGATATTGA";
my $str2 = "alex";

Что я хочу сделать, это извлечь последние три символа от каждого из этого.

$out1 = "TGA";
$out2 = "lex";

Как мне это сделать в Perl?

Answer 1

Использование substr :

$out1 = substr($str1, -3);