Re^2: how to write a subroutine content into a file

Or, similarly:

#!/usr/bin/perl

use warnings;
use strict;

sub doit {
    print "How are you?\n";
}

seek DATA, 0, 0;

while (<DATA>) {
    print if /^sub doit {/ .. /^}/
}

__DATA__
[download]

Comment on Re^2: how to write a subroutine content into a file Download Code