$,="B / ",print y/-ÿ//d,s/\d|\pL//g+0,y/!-~//."B
"for<>