#!/usr/local/bin/perl

# new line at the end of each print, automatically
$\ = "\n";

$string = "soggy vegetables in the crisper";

print substr($string,0,5);

substr($string,0,5) = "no";

print $string;

$replaced = substr($string,0,length($string),"many");

print $string;
print $replaced;

substr($replaced,0,3);
print $replaced;

substr($replaced,2,0,"lying ");
print $replaced;