##
Z 92 102
Z 103 123
####
open(FILE, "$input") || die "OOPS! Can't find file!\n";
while()
{
@file = split(/\s+/, $_);
$zitem = $file[0];
if("$zitem" eq "Z")
{
$start_element = $file[1];
$stop_element = $file[2];
}
}