use strict;
use warnings;
use POSIX qw(strftime);
my ($m, $y) = strftime ("%b %Y", localtime) =~ m|(\S+)\s(\S+)|;
print "$m $y";