Created by www.tryperl.com.

CRD.pl

#Created by tryperl.com
use strict;
use warnings;

print "Go Ahead and edit me!";
print "Once you are done editing, click SAVE to save changes :D";
# print <>; #you can use the STDIN to put data into your program 
my $string = "The black cat climbed the green tree";
my $black = substr $string, 4 5;