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

# Slurp entire file into $file
my $file;
open FH, $0 or die $!;
{
        # localize scope as described in perlvar
        local $/;
        $file = <FH>;
}

my $line = '---not found---';
$line=$1 if $file=~/\n(ope[^\n]*)/;

print "Line='", $line, "'";

##</code><code>##

Line='open FH, $0 or die $!;'