$ cat base.xml bar $ perl 11109932.pl < base.xml This is what line looks like This is what line looks like .ELEPHANTS This is what line looks like bar .ELEPHANTS This is what line looks like .ELEPHANTS $