<hppavilion[1]> learn Q is a function from vowels to phoneme strings that converts a vowel to its semivowel equivalent and prepends a voiceless velar stop.

#!/bin/sh
exec perl -e 'open$I,"<","/hackenv/share/mtg/allsets.txt"or die;$/=""; while(<$I>){/\A(?i)\Q$ARGV[0]/ and print}' "$1"