perl -e' ( $j , $o , $b ) = split "[<>]",
"~---~----~--~~~~~~-~~---~~~-~~-~~---~-'\
'---~--~--~~---~--~~---~~~~~~-~~~~-~~~-'\
'~-~~~~--~~~-~-->Welcome<-~-~~~~--~~~~~'\
'~-~~-~~~~~-~~---~--~-~~~~--~~~--~--~-~'\
'~----~~~-~---~-~~-~--~--~~~--~--~~---~";
print"\n$o ",pack("b*","007$j$b"),"\n\n"'