Extract letzten K Zeichen aus einer Zeichenkette in Perl

Question

Ich habe eine Zeichenfolge, die

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

wie folgt aussieht Was will ich tun, ist letzten drei Zeichen von jedem, das zu extrahieren.

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

Wie kann ich es in Perl tun?

Answer 1

Verwendung substr:

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