#!/usr/bin/perl -w
# Example perl 5.6.1
my $string = '012345679ABCDEFGHIJKLMNOPQRSTUV';
print $string,"\n";

my $result  = substr($string,2,6) = '';
print $result,"\n"; # Result is 9ABCDE

print $string,"\n";