my( $smonth, $syear ) = ( $1, $2 );\r
$smonth = '0'. $smonth if $smonth =~ /^\d$/;\r
$self->{_content}{cardstartmonth} = $smonth;\r
my( $smonth, $syear ) = ( $1, $2 );\r
$smonth = '0'. $smonth if $smonth =~ /^\d$/;\r
$self->{_content}{cardstartmonth} = $smonth;\r