#!/usr/local/bin/perl

$baseURL = "http://www.ryerson.ca/perl/arrays";

@finalURL = split (/\//, $baseURL);

foreach $part (@finalURL){
    print "$part\n";
}