Wyciąg ostatnich znaków K z ciągiem w Perl

Question

Mam ciąg, który wygląda tak

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

Co chcę zrobić, to wyodrębnić trzy ostatnie znaki od siebie o tym.

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

Jak mogę to zrobić w Perlu?

Answer 1

Zastosowanie substr:

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