$:=~m{.(.)}s and print "something$1"