Because for some reasons having to do with cpanstats I want to analyse the code of some CPAN modules. I'm not interested in the POD, so I want to remove it. And I do not want to mess around with files (especially when running some analysis on all of CPAN) just to remove POD.

What I want is something like

my $podless=remove_pod($code)
[download]

* What about DATA filehandles?

I'm not sure what you mean by this..

--
#!/usr/bin/perl
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}
[download]

What I meant is: since you are removing everything after __DATA__, if the program had something besides POD in there, and accessed it via the DATA filehandle, it would no longer work.

Reading your reply, anyway, I'm starting to believe you are not going to run those script.

-- 
        dakkar - Mobilis in mobile

Oh, yes

I know this, and, you're right, I won't run the code.

If I choose to use my proposed module, I might add a parameter so users can specify if they want to drop stuff after __DATA__ or not...

--
#!/usr/bin/perl
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}
[download]