sub credit {
  my ($number) = @_;
  @numbers = $number =~ /(\d{4})[ -]?(\d{4})[ -]?(\d{4})[ -]?(\d{4})/;
  return @numbers;
}

@numbers = credit($ARGV[0]);
print join("\n", @numbers) . "\n";