#!/usr/local/bin/perl $string = "This is a sample character string"; $sub1 = substr ($string, 10, 6); $sub2 = substr ($string, 17); print ("\$sub1 is \"$sub1\"\n\$sub2 is \"$sub2\"\n");