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