#!C:/perl/bin$stringvalue = "Perl is a great language";$anotherstring = substr($stringvalue, 10, 14);print "\n\n\$anotherstring contains: $anotherstring \n\n";