use strict;
use warnings;

while (<DATA>){
	print  /^cat/ .. /^\^cat/ ? "#$_" : $_;
}

__DATA__
mouse
cat
1
2
3
^cat 
deer
eel
cat
furbaby
elk
^cat
dog
fish