#!/usr/bin/perl
use win32::OLE qw(in);
$search="Vuser End";

open(INFO, "E:\\Mibor_TimingTest\\Mibor\\output.txt");
@array=<INFO>;
close (INFO);
foreach $line(@array){
if ($line =~ /$search/)
{
do this stuff etc..
}