Select Code to Download

sub num_month 
{
...
  }
  die "no month in @tokens";  ## optional but you may want this
}

#!/usr/bin/perl -w
use strict;
...
my $month_text = (split (/[\s,]+/, uc($date_line2)))[1];
print "$month_text\n";
#prints JAN