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

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

#this part does not print:

substr($string, 5, 2) = "wasn't"; 		#change "is" to "wasn't"
print $string . "\n";

substr($string, -12) = "ondrous";		#"this wasn't wondrous"
print $string . "\n";


substr($string, 0, 1) = "";			#delete first character
print $string . "\n";


substr($string, -10) = "";			#delete last 10 characters
print $string . "\n";


#printing problem end here


=head out:

This is what you have
This wasn't what you have

This wasn't whondrous
his wasn't whondrous
his wasn't

=cut