#/4a/75/73/74/20/41/6e/6f/74/68/65/72
open(FH,$0)||die;while(<FH>){chomp;if
(m/^#(.*?)$/){$_=$1;@_=map {split'/'}
$_;foreach(@_){print pack "H*", $_;}}
}print "\n";########## kel ##########
#/20/50/65/72/6c/20/48/61/63/6b/65/72