my $sub=substr(<<EOT,3,3);
abc123def
EOT
print "sub=\"$sub\"\n";