perl substr

$str="testtest";  
print substr($str,0,5);