!#/user/bin/perl -w

use strict;

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