#!/usr/local/bin/perl

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

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

$finalURL[$#finalURL + 1] = "split.pl";

$finalURL = join("/", @finalURL);

print "$finalURL\n";