How to find a substring in a string without using substr built in functions, and print the substring found?

Submitted by: Administrator
$r="YASHWANTH";

@n=split (//,$r);
print "@nn";
@t=splice(@n,0,3);

print "@tn";
$r=join("",@t);
print "$rn";
~
~
Submitted by: Administrator

Read Online CGI Perl Job Interview Questions And Answers