#!/usr/bin/perl

open (IN,"<test.gro") or die "Die Datei wurde nicht gefunden\n";	
while (<IN>)
{
if ($_ =~ m/SOL/)
                $zw = substr($_,39,5);
		$xw = substr($_,23,5);
		$yw = substr($_,31,5);
}
close(IN);