#!/usr/bin/perl

use strict;
use warnings;

while( my $ln = <DATA> )
  {
    chomp( $ln );

    my @flds = split( '@', $ln );
    foreach ( @flds )
      {
        if ( /(#*)/ )
          { 
            print "/$ln/ --> /$1/\n" if ( length( $1 ) % 2 ) == 1;
          }
      }
  }

__DATA__
#@##@###@####@#####@
#@##
###@####
#####@