#!/usr/local/bin/perl

$t = tell DATA;

while (<DATA>) {
  if ($r = \"aString" .. __) {
    last if $r =~ /E/;
    print;
    $. = -1;
  }
  seek DATA, $t, 0;
}

__END__
Just another Perl hacker,