How to make a string substitution in a very long string in Perl?

Hi,
I have a very long string and in that string I have the following pattern in most places.

href="file://///dir1/dir2/dir3/dir4/dir5/dir6/dir7/dir8/dir9/dir10/dir11/REPORT_Unix/20YYMMDD_HHMM_ReportDetails.html#/dir1/dir2/dir3/dir4/dir5/dir6/dir7/dir8/dir9/dir10/dir11/@dir12/@13/file1.cpp

Select allOpen in new window

I'd like to convert this types of patterns to the following form:

href="file://///***/20YYMMDD_HHMM_ReportDetails.html#/dir1/dir2/dir3/dir4/dir5/dir6/dir7/dir8/dir9/dir10/dir11/@dir12/@13/file1.cpp

Select allOpen in new window

How can I do it?

I tried the following but it did not work:

$fileLine =~ s{ href=\w+_20 }{\ /20};

Select allOpen in new window

The directory names (dir1, dir2, dir3) may change so the rule should be something like this?

Replace between href="file:///// and 20YYMMDD_HHMM with ***


Thanks,