my $substr;
if (length($_) >= 4) {
   $substr = substr($_, 4, 3);
} else {
   $substr = '';
}