while (<"em bedded/name*">} {
    print "$_\n";
}