my$prnt = qq~ $bodytag