Select Code to Download

#!/usr/bin/perl -w

...
my $substring = substr($dna,0,$len);
return $substring;
}

Enter the string =snape
Enter the size =4
The Length of the string = 6
The substring is = snap