use Tie::File;
tie my @file, 'Tie::File', $0 or die $!;

splice @file, $begin_lineno, $begin_length, split $/, eval <<B_SUGAR;
# etc.