Estratto ultimi caratteri K da una stringa in Perl

Question

Ho una stringa simile a questa

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

Quello che voglio fare è quello di estrarre ultimi tre caratteri da ciascuno di quella.

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

Come posso farlo in Perl?

Answer 1

Uso substr:

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