#!/usr/local/bin/perl

open (IN, "/text.txt");
while (<IN>){
	if ($_ =~ /hello/){
		# do what ever
	}
}
close IN;