Need help with PERL Scripting in Linux/UNIX:

Write activity6.2-2.pl to perform the task below:

Consider the variable

$path = /usr/bin/perl,

!Replace the characters after the last / with tclsh

!Use substr function to modify $path to be /usr/local/bin/tclsh

!Note: To insert a string with substr, assign that string to the appropriate formula.

substr(str1, offset, 0) = str2 will insert str2 into str1 starting at index offset