perl -MEnglish -E "@; = q<Hi>; say @SUBSEP"
Hi