use warnings;
use strict;
use Time::Piece;

while (<>) {
	chomp;
	my $t = Time::Piece->strptime($_, '%m/%Y');
	my $prev = $t->add_months(-1);
	print $prev->strftime('%m/%Y'), "\n";
}