$s = "12345678";
    $s = join '', ( split //, $s )[
    (
        sprintf( '%03d%03d', length($s), length($s) ) / 7 / 11 / 13 -
            sprintf( '%03d', length($s) ) + 1 ) .. length($s) - 1
    ];
    print "$s\n";