#!/usr/bin/perl

use utf8;
use charnames ':full';

while ($line=<>){
        @array = split(/ /, $line);
        foreach $x (@array){
                if ($x=~ /\N{MIDDLE DOT}/){
                        print "$x\n";
                }
        }
}