$content{'expiration'} =~ /^(\d+)\D+\d*(\d{2})$/
or croak "unparsable expiration ". $content{'expiration'};
my( $month, $year ) = ( $1, $2 );
$content{'expiration'} =~ /^(\d+)\D+\d*(\d{2})$/
or croak "unparsable expiration ". $content{'expiration'};
my( $month, $year ) = ( $1, $2 );