you cannot use code like a < $X < bin Perl ..
HMWTDI :

$Y = ($X + 2000) if ($X >=0 && $X < 10) ;
$Y = ($X + 1900) if ($X >=10 && $X < 100) ;
[download]

Regards
Abhinav