#!/bin/sh
#... intervening code ...
export CountDataLines = `perl -e 'while(<>){/^\s*</ or $notXML++;} print $notXML;' < $FileName`