#!/usr/bin/perl -w my $what="larry"; while(<>){ if(/^($what)/){ print"We saw $what in beginning of $_;"; }