#!/usr/local/bin/perl
# Jaime Prilusky, 2003

  my $string = $ARGV[0] || "abcedefghijklmnopqrstuvwxyz";

  my $portion = substr($string,4,10);

  print qq{
original $string
portion  $portion
};