Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re^4: How to use __DATA__ efficiently, help!

by Anonyrnous Monk (Hermit)
on Feb 09, 2011 at 20:02 UTC ( #887268=note: print w/replies, xml ) Need Help??


in reply to Re^3: How to use __DATA__ efficiently, help!
in thread How to use __DATA__ efficiently, help!

$_.=s/<--date\/\/>/$date/;

You probably meant

$_ =~ s/<--date\/\/>/$date/; ...

or just (as $_ is the default anyway)

s/<--date\/\/>/$date/; ...

s/// returns the number of substitutions made, so as you have it, you're appending that number to $_.