View Single Post
  #2 (permalink)  
Old November 28th, 2006, 08:46 AM
bluemin bluemin is offline
Registered User
 
Join Date: Nov 2006
Location: , , India.
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
Default

undef $/;
$Str=(open (IN,"<$ARGV[0]"))?<IN>:die "$!";
$Str=~s/(\n|\t)*//g;
@count=$Str=~/<employee>/g;
print scalar(@count);


Reply With Quote