#!/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");
