substr is the way to go:

use strict;
use warnings;

my $str = '1234567890' x 10;
print substr $str, -60;
[download]

Prints:

123456789012345678901234567890123456789012345678901234567890
[download]