use warnings;
use strict;

while ( my $line = <DATA> ) {
	if ( $line =~ /^foo/ ) {
		for my $x (1..3) {
			print "foo$x\n";
		}
	}
	else {
		print $line;
	}
}

__DATA__
hello
world
foo_
bar