my $str = "//111.11.112.12/abc/main/myfolder/docs";
$str =~ s[^.+?(/\w+?/main.*)$][whatever$1];