#!/usr/bin/perl
use strict;
use warnings;

my $string = "This is what you have";
print $string;

#this part does not print:

substr($string, 5, 2) = "wasn't"; 		#change "is" to "wasn't"
substr($string, -12) = "ondrous";		#"this wasn't wondrous"
substr($string, 0, 1) = "";			#delete first character
substr($string, -10) = "";			#delete last 10 characters
#printing problem end here