use strict; my $target_data="\n\n2\n\n\nRISK/RETURN SUMMARY AND FUND EXPENSES\n\n\nPRIME MONEY MARKET FUND"; my $pattern='(\n\s*[0-9]{1,3}\s*\n\s*\s*\n)(.*)(\n*)'; $target_data =~ s/$pattern/" " x length($1).$2."\n" x length($3)."\n" x length($1)/gie; print $target_data; print "\n\n";