123456789101112
C:\>perl#!/usr/bin/perluse warnings;use strict;my $string = "1234567890";print substr($string,5);^Z67890C:\>