#!/usr/local/bin/perl -w
use strict;
open(IN,"<ab.in");
while($_=<IN>)
{
   if($_=~/\$display(.*?);$/i)
   {
     print;
   }
}
close(IN);