$_ = ref bless[],just'another'perl'hacker;
s-:+-$"-g&&print$_.$/