#!/usr/bin/perl -w

use strict;

my $line;
my $pattern = "asdf";
my $flag = 0;

while($line = <>) {

    if($flag) {
        print "do something here to $line \n";
    }

    if($line =~ m/$pattern/) {
        $flag = 1;
    } else {
        $flag = 0;
    }
}

if($flag) {
    print "Oops, we don't have a line to work on but flag was set.\n";
}