my $etext = $ARGV[0]; my $site = 'http://pod/Gutenberg'; my $splitguten = join('/', split(/ */, $etext)); my $clipguten = substr($splitguten, -2, 2, ''); my $link = "$site/$splitguten/$etext/$etext-h/$etext-h.htm";