#!/usr/bin/perl -w
use strict;

print "foo\n";

seek(DATA,0,0);

while (<DATA>) {
        s/foo/bar/ and ! /eval/ and eval ;
}

__DATA__

##</code><code>##

#!/usr/bin/perl -w
use strict;

print "foo\n";

seek(DATA,0,0);

my @me = <DATA> ;

foreach (@me) {
        s/foo/bar/ and ! /eval/ and eval ;
}

foreach (@me) {
        s/bar/baz/ and ! /eval/ and eval ;
}

__DATA__