#!/usr/bin/perl

use strict;

foreach my $linea (<STDIN>){
	chomp $linea;
	if ($linea=~/\s\.\/[^\/]+\/home\/html\/(.+)\s-\>/){
		print "$1\n";
	}
}