Extraire les derniers K caractères d'une chaîne en Perl

J'ai une chaîne qui ressemble à ceci

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

Ce que je veux faire est d'extraire des trois derniers caractères
de chaque de ce.

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

Comment puis-je le faire en Perl?

source d'informationauteur neversaint

  1. 26

    Utilisation substr:

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