Select Code to Download

my $extracted_digits = substr( $var, -2, 2, $newdigits );

use strict;
use warnings;
...
my $extracted = substr( $var, -2, 2, $newdigits );
print "$var\n"; # 200504250967
print "$extracted\n"; # 55