say $];;
5.016001

$s = 'fred'; $s x= 1024**3;;

print substr( $s, -4 );;
fred