Select Code to Download

$string =~ s/\Q$substring//;

my $offset = index( $string, $substring );
substr( $string, $offset, length $substring, '' ) if $offset > -1;