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

##</code><code>##

$fwrite(f,{few parameters},$fwrite(f,{kjg,kk}));
$fwrite(f,koal,jirp);
fwrite(f,jrei,
orowp,jgo);


##</code><code>##

$fwrite(f,{few parameters},fwrite(f,{kjg,kk}));
$fwrite(f,koal,jirp);
fwrite(f,jrei,orowp,jgo);