String Perl

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