if ( ($CardNo, $MMDD, $Type, ... ) = m{^...} ) {
  # do stuff
} else {
  warn "unable to parse this line: $_";
}