my $received="02 22 20 22";

my($month,$day,$year1,$year2)=unpack("A2xA2xA2xA4",$received);

$year2++;

my $send=$month.$day.$year1.$year2;
$ob->write($send);