#!/usr/bin/perl

# Parse the International Standard Book Number from the back of this book
# (9781449393090). Install the Business::ISBN module from CPAN and use it
# to extract the group code and the publisher code from the number.

use v5.24;
use warnings;
use strict;
use utf8;
use local::lib;
use Business::ISBN;

my $isbn = Business::ISBN->new(shift @ARGV);
#print the group code or publisher code
printf("ISBN: %s, Group Code: %s, Publisher Code: %s\n", $isbn->as_string, $isbn->group_code, $isbn->publisher_code);