#!/usr/bin/perl
open(DATA,"mahi");
$a="";
$a=$a.$_ while($_= <DATA>);
$a =~ /This is the temp line\./g;
print $`;