Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!swrinde!cs.utexas.edu!sun-barr!ccut!wnoc-tyo-news!sranha!sran230!sran84!sran84.sra.co.jp
From: utashiro@sran84.sra.co.jp (Kazumasa Utashiro)
Newsgroups: comp.lang.perl
Subject: $` is gone in s///;
Message-ID: <306@sran84.sra.co.jp>
Date: 27 Mar 91 13:32:15 GMT
Sender: utashiro@sran84.sra.co.jp
Organization: Software Research Associates, Inc., Japan
Lines: 25

Is this a bug or new spec?

#!/usr/local/bin/perl
$_="superlative superlunary\n";
s/perl/&c($`,$&,$')/ge;
sub c {
	local($l, $c, $r)=@_;
	print $l, $c, $r;
	$c;
}
__END__

perl4.000 produces:

	perlative superlunary
	perlunary

perl3.044 produces:

	superlative superlunary
	superlative superlunary

---
K. Utashiro
utashiro@sra.co.jp