Thanks, NOw i just have to figure out how to test every line and store the right one in a var.
I canīt do a:

!#/user/bin/perl -w

use strict;

while (<>) {
$var = substr($_, 3, 2);
print "$var";
}
[download]

but im closer now, thanx again