Extract ký tự K trước từ một chuỗi trong Perl

Question

Tôi có một chuỗi mà trông như thế này

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

Những gì tôi muốn làm là để trích xuất ba ký tự cuối cùng từ mỗi đó.

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

Tôi có thể làm điều đó như thế nào trong Perl?

Answer 1

Sử dụng substr:

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