##
## Taking the last N elements off the end of a string
##
use strict ;
use warnings ;

my($s) = '0123456789' ;

print substr($s, -5), "\n" ;