Another alphabetic equivalent for modern korean, created by:
perl -Mcharnames=:full -CS -pe'package charnames;
s{\S}{chr vianame(viacode(ord $&) =~ s/^(?=HANGUL)/HALFWIDTH /r)}ge'
“웬 초콜릿? 제가 원했던 건 뻥튀기 쬐끔과 의류예요.” “얘야, 왜 또 불평?”
“웬 초콜릿? 제가 원했던 건 뻥튀기 쬐끔과 의류예요.” “얘야, 왜 또 불평?”
+ “ᅰᄂ 초코리ᄉ? 제가 ᅯᄂ해ᄊ더ᄂ 거ᄂ 뻐ᄋ튀기 쬐끄ᄆ과 ᅴ류ᅨᅭ.” “ᅤᅣ, ᅫ 또 부ᄅ펴ᄋ?”
“ㅞㄴ ㅊㅗㅋㅗㄹㅣㅅ? ㅈㅔㄱㅏ ㅝㄴㅎㅐㅆㄷㅓㄴ ㄱㅓㄴ ㅃㅓㅇㅌㅟㄱㅣ
ㅉㅚㄲㅡㅁㄱㅘ ㅢㄹㅠㅖㅛ.” “ㅒㅑ, ㅙ ㄸㅗ ㅂㅜㄹㅍㅕㅇ?”