últimos caracteres de una cadena K en Perl

Question

que tienen una cadena que tiene este aspecto

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

Lo que quiero hacer es extraer tres últimos caracteres de cada uno de eso.

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

¿Cómo puedo hacerlo en Perl?

Answer 1

Uso substr:

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